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How Can You Avoid Getting 
Trapped Under An Ancient 









Once upon a time, word processors 
were monstrous things. Dot com- 
mands, page orientation, and separate 
editing, formatting and printing pro- 
grams turned them into lumbering 
beasts. Only a well-educated pro- 
grammer would dare don his armor 
and tackle such a beast — not a plea- 
sant task for a modern secretary, 
executive, or writer. 


Then came WordPerfect and the 
beast was slain. 


WordPerfect was designed to work 
for you not against you. WordPerfect 
has no command language to compli- 
cate your writing. Pressing a single 
key is all it takes to 


bold, underline or center. 


When writing, you don’t want to 
worry about page formatting, making 
room for headers or footers, or 
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Processor? 


Buy Word 
Perfect! 





whether you are in “edit” or “create” 
mode. Your word processor should 
do it automatically and WordPerfect 
does. WordPerfect lets you think in 
terms of ideas, not pages. It is simple 
enough that you quickly forget about 
the mechanics and your writing flows 
easily. 


So if you don’t want to be caught 
under a word processing monster, try 
WordPerfect. We're certain it will 
improve the quality of your writing. 


Word Reriect 


You'll love it — 
not only for the features 
we've built in, but 
also for the 
antiquities 
weve 

left out. 
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BASIC or PASCAL. Easily! 

Generate programs in BASIC or PASCAL. Your choice. 

Works with Turbo PASCAL * IBM * PASCAL or IBM BASIC (Interpreter and Compiler). 
Easy to use. Begin productive use in minutes! 


POWERFUL SCREENS 


Everyone can have professional quality screens to dress up any program. 
Generate complex, colorful, effective screens in minutes. 


FULL FUNCTION SCREEN CREATION 


Simply “draw” input screens with word processor style editor. 


Advance screen creating features include: 

e Draw boxes, lines, etc. in seconds with ungiue character selection menu. 

e Repeat last character in any direction. 

e Special color-select screen displays all available colors. 

e Paint and Repaint sections of screen at any time. 

e Copy and Move sections of screen. 

e Insert or Delete characters and lines. 

e Input field definition screen gives you total control of character type definitions, edit screen masks, input sequence, variable 
names. initial values, protected characters, etc. 


COMPLETE DATA ENTRY ROUTINES 


Generates customized program code that allows professional quality data input using the full PC keyboard (cursor keys, delete, 
insert, and more). Checks input data for valid entries and displays error messages. 

Programs are easily merged with your own programs. 

Easy to follow documentation shows how and where you can modify the generated programs. 


e Available now with IBM PC, PCjr, PCXT, and all true compatibles. 
eRequires 128k RAM, one floppy disk drive, and PC DOS. Works with any display type. 


* Turbo PASCAL is a registered trademark of Boreland International, Ltd. iBM is a registered trademark of IBM corporation. 


Master Card and Visa orders call now fo// free 1-800-824-7888. Operator 268 
Alaska and Hawaii call 1-800-824-7919. Operator 268 
DEALER INQUIRIES INVITED. SORRY, NO C.O.D. 
Produced and Distributed by The Software Bottling Co. of New York. 
29-14 23 Ave., New York City, N.Y. 11105 © (212) 728-2200 Telex 380748 
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More power 


to you. 


Remember the magic you 
expected when you first purchased 
aPC? 

It's here. 

dBASE III™ is the most power- 
ful database management system 
ever created for 16-bit 
microcomputers. It pulls 
every ounce of energy 
out of your PC and puts 
it to work. 

On top of that, it’s 
fast and it’s easy. 


You've never seen 
anything like it. 
dBASE III can handle over a billion 
records per file, limited only by your com- 
puter _ You can have up to ten files 
open, for sophisticated applications pro- 

ams. 

When you have two related files, infor- 
mation in one can be accessed based upon 
data in the other. 

dBASE III now handles procedures, 


parameter passing and automatic variables. 


You can include up to 32 procedures in a 
single file. With lightning speed. Because 
once a file is opened, it stays open. And 
procedures are accessed directly. 


Easier than ever. 

dBASE III uses powerful yet simple 
commands that are the next best thing to 
speaking English. 

If you're unsure of a command, HELP 
will tell you what to ask for. 

If you don’t know what command 
comes next, a command assistant does. All 











you have to know is what you 
want it to do. 
2 Our new tutorial/manual 
will have you entering and 
viewing data in minutes rather 
than reading for hours. 

- And to make matters 
easier, you get a full screen 
report setup for simple infor- 
mation access. 


Faster than no time at all. 

dBASE III isn’t just fast. It’s ultra-fast. 
Operating. And sorting. Even faster, is no 
sorting. Because dBASE III keeps your 
records in order, so you really don't have to 
sort anything. Unless you want to. Then 
watch out! 


What about dBASE II*? 


It’s still the world’s best database man- 
agement system for 8-bit computers. And 
it’s still the industry standard for account- 
ing, educational, scientific, financial, busi- 
ness and personal applications. 

Tap into our power. 

For the name of your nearest authorized 
dBASE III dealer, contact Ashton-Tate, 10150 
West Jefferson Boulevard, Culver City, CA 
90230. (800) 437-4329, ext. 333. In Colorado, 
(303) 799-4900. 


ASHTON ‘TAIE 


© Ashton-Tate 1984. All rights reserved. dBASE III and Ashton-Tate are 
trademarks and dBASE Il is a registered trademark of Ashton-Tate. 
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If you have not already noticed, we have a new column starting this month. Mike 
Swaine will be writing The Software Designer, a column intended to present the 
views of industry leaders on software design topics. This debut discusses issues of 
programming style differences. Tools for software design will be next month’s 
topic. 

Also as of this issue, Of Interest will be written by Randy Sutherland. Our 
congratulations to Randy on his new endeavor. Michael Wiesenberg, who has 
handled that task for nearly two and a half years, will be moving on to do other 
writing for us, including one of the new puzzle columns we have coming up. Our 
thanks to Michael for the job he’s done for us. We look forward to his future 
contributions. 


Coming Down the Pike 


We've been looking at our editorial calendar for 1985 and thought we’d let you in 
on some of the special issues we’ve planned. As you already know, we plan to focus 
on Unix this December. The February 1985 issue will be our 100th issue, and we 
figure we should do some celebrating. March 1985 will be an artificial intelligence 
issue, including the winner from the Fifth Generation Programming Competition 
(you did get your entry in, didn’t you?). June 1985 will focus on telecommunica- 
tions. September will still be the annual Forth issue, and we will close out the year 
with a focus on the latest developments in operating systems (the exact topics, of 
course, partially dictated by what transpires during the year). 

While this is only part of what we have in store, it will give readers something 
to look forward to and authors something to plan toward. Authors should note 
that the copy deadline is likely to be about three months prior to the issue date, 
though we will announce deadlines as we get closer to the issues. 


This Month’s Referees 


a Dr. Dobb’s Journal regularly draws on the expertise of a Board of Referees for 
i InfoWorld, Stan Veit, Western Materi: j ; . ; ‘ : a 

ol, SP ene John Hatch, Richar reel technical evaluation of material submitted for publication. In addition to re- 

a marks to the editors concerning accuracy and relevance of manuscripts, the ref- 

erees often provide constructive comments for authors regarding clarity or com- 

pleteness. Their remarks help prevent authors form exposing blindspots or 

misconceptions in print and help ensure that our readers receive clear and accu- 
rate information. The referees who contributed to this month’s issue are: 


Wayne Chin, Hewlett-Packard, Information Networks Division 
Georges Grinstein, Computer Science Dept., Fitchburg State College 
John P. Keyes, Microsoft 

Ben Laws, Computer Science, North Texas State University 

Scott D. Thomas, Informatics General Corporation 
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ARTICLES 
More dBASE II Programming Techniques 26 = The explanation of several undocumented dBASE II 
by Gene Head features includes SET CALL TO ADDRESS and CALL 
VARIABLE, as well as the dBASE hex file format. (Reader 
Ballot No. 193) 
Simple Calculations with Complex Numbers 30 The author discusses the theory of complex numbers and 
by David D. Clark complex functions and how they can be implemented in 
computer programs. (Reader Ballot No. 194) 
GREP.C—A Unix-like Generalized 50 _ Born of the need for something more general than the 
Regular Expression Parser pattern-searching capability of a text editor, this pattern 
by Allen Holub matcher implements most of the features of the Unix 
utility of the same name. (Reader Ballot No. 195) 
DEPARTMENTS 
Editorial 6 
Letters 10 

Dr. Dobb’s Clinic 14 Putting his money where his mouth is, the Intern presents 
an optimization scheme for compilers on microcomputers 
(Reader Ballot No. 190) 

: CP/M Exchange 20 One of those real-life embarrassment stories . . . (Reader 

Ballot No. 191) 

The Software Designer 22 What’sa West Coast programmer? Our new column on 
software design issues begins with a roundtable discussion 
of programming style (Reader Ballot No.192) 

16-Bit Software Toolbox 84 MSDOS 2.0 Filters, Sizing RAM under MSDOS, More 
Microsoft Assembler Warnings, Hex to ASCII Conversion 
(Reader Ballot No. 196) 

C/Unix Programmer's Notebook 92 A set of routines to simplify user-program interaction, and 
two programming systems illustrating Runge-Kutta 
integration (Reader Ballot No.197) 

Book Reviews 118 
Of Interest 126 (Reader Ballot No. 198) 
Advertiser Index 128 
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promises about the editorial direction of the magazine. Since then, editor 

Reynold Wiggins and I have spent twenty-odd weeks examining the Doctor, 
and recently the entire DDJ staff spent a three-day weekend poking DDJ with 
every available instrument. The prognosis is excellent; DDJ is a healthy, growing 
magazine, and I can now be more specific about what the magazine will not be 
doing over the next year. 

DDJ will not abandon 8-bit software so long as useful creative software devel- 
opment is being done on 8-bit systems; forever, so far as we can tell. DDJ will, on 
the other hand, focus more deliberate attention on 16- and 32-bit software. We’ll 
publish MSDOS- and Unix-based software and we’ll investigate software devel- 
opment on the newer microprocessors. If you conclude that we intend to stay 
pretty loose, you’re right. 

DDJ will not become a product-specific magazine. We'll always prefer the 
MSDOS application to the PCDOS and the DOS-independent application to the 
strictly MSDOS. We are interested in the Mac/Lisa/PARC human interface, 
naturally; it’s a highly significant development in personal computer software. 
But the insights embodied in the Mac are not proprietary. 

DDJ will not become language-specific, either. Most of the code published in 
other computer magazines is in BASIC. Not so in DDJ, since we try to furnish 
consequential code for software designers. Despite the fact that this magazine 
was founded to put a version of BASIC in the public domain, its editors have 
never considered BASIC an ideal language either for software development or for 
communicating ideas about programming. 

Apparently Kemeney and Kurtz agree; the designers of BASIC seem to have 
concluded that BASIC would be better off being Pascal (i.e. True BASIC) just as 
Pascal’s designer declares his language obsolete, to be succeeded by Modula-2. 
Pascal remains, however, a good notation for communicating algorithms, so we'll 
doubtless continue to publish some Pascal code. We’ll be investigating Modula-2, 
but we do have some questions about how and in what settings it’s likely to be 
useful (see “The Software Designer” in this issue). Our Modula coverage is 
likely to focus at least for the immediate future on what the language has to offer 
programmers (as in “An Introduction to Modula-2 for Pascal Programmers,” 
May 1984), rather than on providing tools for Modula programmers. 

DDJ has participated in the evolution of Forth as a language, but we will shift 
our coverage of Forth slightly over the next few months. We disagree with Byte 
magazine’s assessment that Forth is still a language in flux. Such developments as 
the FVG Forth floating-point standard (described in DDJ last month) are evidence 
that Forth is ending its formative years and is becoming an adult language. That 
being our view, we'll be leaving some of the residual wrangling to other, language- 
specific forums, and we'll concentrate on providing useful Forth tools. 

The most important language in microcomputer software development today 
is C, and DDJ will continue in 1985 to be the best source for new programming 
tools in C. 

Finally, DDJ will not lower its technical standards. Many readers have insisted 
that we not water down the technical level of the magazine. Heaven help us if 
that’s bad advice, because we’re going to follow it. On the other hand, don’t be 
alarmed to see a page here and there given to humor, puzzles or programming 


competitions. Serious doesn’t mean stoic. 
. 
Vy shoul c nie 


Michael Swaine 


- ive months ago I wrote my first editorial for DDJ and in it made several 
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COHERENT" IS SUPERIOR TO UNIX’ 
AND IT’S AVAILABLE TODAY 
ON THE IBM PC. 


Mark Williams Company hasn't just taken a mini-computer 
operating system, like UNIX, and ported it to the PC. We 
wrote COHERENT ourselves. We were able to bring UNIX 
capability to the PC with the PC in mind, making it the most 
efficient personal computer work station available at an 
unbelievable price. 


For the first time you get a multi-user, multitasking operating 
system on your IBM PC. Because COHERENT is UNIX- 
compatible, UNIX software will run on the PC under 
COHERENT. 


The software system includes a C-compiler and over 100 utili- 
ties, all for $500. Similar environments cost thousands more. 


COHERENT on the IBM PC requires a hard disk and 256K 
memory. It’s available on the IBM XT, and Tecmar, Davong 
and Corvus hard disks. 


Available now. For additional information, call or write, 


Mark Williams Company 
1430 West Wrightwood, Chicago, Illinois 60614 
312/472-6659 


Mark 
Williams 
Company 





( 





COHERENT is a trade mark of Mark Williams Company. 
*UNIX is a trade mark of Bell Laboratories. 
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Join the network 


Develop a program for the new IBM 
PC Network. 


Promote yourself into the top ranks of network pro- 
grammers. Write new programs or modify existing ones 
to run on the local area network that’s sure to be a best 
seller. 

Capitalize on a chance to be in from the beginning 
with integrated business applications, productivity tools 
and office automation programs. 

A high-level interface card makes programming for 
the IBM PC Network fast and easy. Full data sharing and 
byte locking capability, multiple servers. two megabits 
per second data transmission and a complete diagnostic 
package make the network equally as attractive to the end 
user. 

For complete details about joining the network call 
1-800-426-2700. Or write IBM Corporation. Editor, 

IBM Personal Computer Seminar Proceedings. 
3909/4629, PO. Box 1328 Boca Raton. FL 33432. 
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IBM PC Network Specifications 


IBM PC NETWORK ADAPTER 
HARDWARE HIGHLIGHTS 


MICROPROCESSORS 

*6MHz 80188 

* 6MHz 82586 

MEMORY 

- 32K PROTOCOL ROM 

- 16K RAM 

- 8K NET BIOS ROM 

VIDEO COMPATIBLE RF MODEM 

* TRANSMIT 50.75 MHz (CH 7114) 

- RECEIVE 219 MHz (CH J) 

- SUPPORTS 1000 NODES 

*» MAXIMUM DISTANCE 5KM RADIUS 
FROM HEADEND 

- MULTIPLE SERVICES POSSIBLE 

DIAGNOSTICS 

- POWER-ON SELF-TEST 

* ON-LINE MEDIA MONITORING 

OTHER 

* SUPPORTS DMA DATA TRANSFERS 

- 2-MEGABIT/SECOND DATA RATE 

- MID-SPLIT BROADBAND 


FIRMWARE HIGHLIGHTS 


OPEN ARCHITECTURE 

- PEER-TO-PEER NETWORK 

* OPERATING SYSTEM INDEPENDENT 

* LOCALNET/PC™, PUBLISHED LAYERED 
PROTOCOL 

FUNCTIONS 

» BASE FUNCTIONS PROCESSED ON THE 
ADAPTER, NOT THE PC 

* DISTRIBUTED NAME SUPPORT 

* REMOTE PROGRAM LOAD 

- 32 CONCURRENT TWO-WAY SESSIONS 

* HIGH THROUGHPUT RATE AT SESSION LAYER 

* CHARACTER SET INDEPENDENT 


IBM PC NETWORK CABLING SYSTEM 
IBM PC NETWORK TRANSLATOR UNIT 


HARDWARE HIGHLIGHTS 

* SINGLE RF CHANNEL CONVERSION 

* ATTACHMENT OF UP TO 72 PCs WITH IBM 
CABLING 

* ATTACHMENT OF UP TO 256 PCs WITH 
CUSTOM CABLING 

* DATA ONLY 

* ALLOWS NODES WITHIN A 1000-FOOT RADIUS 


CABLE 


TYPE 

* STANDARD CATV MEDIA (75 OHM COAX) 
- TREE TOPOLOGY 

* CATV STANDARD F- CONNECTORS 

* PREBALANCED BROADBAND NETWORK 





LOCALNET/PC IS A REGISTERED TRADEMARK OF SYTEK, INC 





KITS 


- BASE EXPANDER (ALLOWS EXPANSION FROM 


TRANSLATOR) 


- SHORT-DISTANCE KIT (1 FOOT ADDITIONAL CABLE) 
> MEDIUM-DISTANCE KIT (400 FEET ADDITIONAL 


CABLE REQUIRED) 


- LONG-DISTANCE KIT (800 FEET ADDITIONAL CABLE 


REQUIRED) 
- CABLE AVAILABLE IN 4 LENGTHS: 25 FT., 50 FT, 100 FT., 
AND 200 FT. 
MAXIMUM PCs AND RADIUS 
DISTANCES SUPPORT FROM TRANSLATOR PCS 
* TRANSLATOR ONLY 200 FEET 8 
-8 SHORT-DISTANCE KITS 200 FEET 72 
-8 MEDIUM-DISTANCE KITS 600 FEET 72 
-8 LONG-DISTANCE KITS 1,000 FEET 72 
- 8-KIT COMBINATION 200 to he 


1,000 FEET 


IBM PC NETWORK SOFTWARE 


DOS 3.1 
EXPANDED SUPPORT FOR NETWORKING 


- FILE SHARING 
* RECORD LOCKING DOWN TO BYTE LOCKING 


PROGRAM INTERFACE TO NETWORK SOFTWARE 


- REDIRECTION CONTROL 

- INSTALLATION CHECKING 
© DIRECT EXECUTION OF NET BIOS FUNCTIONS 
- MULTIPLE SERVERS 


IBM PC NETWORK PROGRAM 
FULL SCREEN INTERFACE AVAILABLE 
REDIRECTOR 


- ALLOWS USE OF SHARED PRINTERS 
- ALLOWS USE OF SHARED DISKS AND DIRECTORIES 
- PROVIDES CAPABILITY TO SEND MESSAGES 


FILE SERVERS 


* SHARED USE OF NAMED DISKS OR 


SUBDIRECTORIES 


* PASSWORD PROTECTION AGAINST UNAUTHORIZED 


ACCESS 


- VARIETY OF ACCESS MODES SUPPORTED (E.G. 


READ ONLY) 


* RECORD LOCKING TO CONTROL MULTIPLE 


UPDATES 
PRINT SERVER 


* SHARED USE OF NAMED PRINTERS 
* PASSWORD PROTECTION AGAINST UNAUTHORIZED 


ACCESS 


* AUTOMATIC SPOOLING AND QUEUING OF OUTPUT 
* QUEUE MANAGEMENT FACILITIES ON SERVER 


STATION 


MESSAGE SERVER 

- INTERACTIVE MESSAGE EDITING/TRANSMISSION/ 
RECEPTION 

* PRESERVES FOREGROUND APPLICATION CONTEXT 

. Ce eee NOTIFICATION OR LOGGING TO DISK/ 
Pp 
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LETTERS 


Commodore Commentary 


Dear DDJ: 
The June 84 article on CP/M on the 
Commodore 64 is “just what the doctor 
ordered.” I think that the Commodore 
will become a very important tool, but 
there is one fly in the ointment. The 
disk drive is s-l-o-w. A serial data link is 
not as stiff or noisy as flat cable (the 
dreaded RFI monster) but is inherently 
slower. Examination of the Commo- 
dore 64 Programmers Reference Man- 
ual seems to indicate something seri- 
ously wrong. It just couldn’t be thar 
slow. Even with 1000 picofarad load- 
ing, the 1000 ohm pull-up resistor 
would give a fast 1 microsecond time 
constant. Data handling in the CPU is 
the real problem, but even so, it should 
take less than 30 microseconds per bit. 
A 256-byte disk block should transfer 
in less than 62 milliseconds. It may be 
that cycle stealing by the display device 
requires huge operating margins. In 
this case, letting the CPU provide data 
clocking for both incoming and outgo- 
ing block transfers eliminates the need. 
I may have missed something obvi- 

ous, but that still does not excuse Com- 
modore’s “floppy tape” philosophy. 

Yours: 

Frank J. Wilson 

2468 Elden St., Apt. J 

Costa Mesa, CA 92627 


More Chinese Forth 


Dear Doctor: 

As a longtime student of Chinese and a 
recent convert to Forth, I enjoyed Tim- 
othy Huang’s article in the June 1984 
issue of DDJ (No. 92). I agree that 
Forth should translate very well into 
Chinese. However, the use of the old 
phonetic symbols to spell out Chinese 
words is a giant step backwards. Over- 
seas Chinese may know the old phonet- 
ics, but I believe that these symbols are 


10 


little used on the mainland now. 

It would be quite straightforward 
and much better to use China’s own 
Pinyin for this purpose. This is not just 
another phonetic system; rather the 
Latin alphabet has actually been incor- 
porated into the Chinese language. The 
letters are used for teaching and to pro- 
vide a precise description of speech 
sounds. 

For example, the Forth word OR 
could be typed in as HUOZHE; the 
Chinese will see this as the normal 
word for “or” (the regular tone marks 
could be used: HUO ZHE’, but pro- 
grammers could probably do without 
them and simplify the code). Likewise, 
ROT would be FANZHUAN, DROP 
becomes DIUDIAO, and DUP is 
CHONGFU. The byte-rich Pinyin ver- 
sions could be shortened, e.g., like our 
ROT and DUP. 

The main advantages would be that 
the words would be real Chinese 
words, and foreign computer consul- 
tants (who could already know Pinyin) 
would have easy access to the code. 

Huang refers to the significance of 
the billion Chinese; most of them are 
on the mainland, however. Sooner or 
later, the overseas Chinese will have to 
come to terms with the big changes 
that have been made in the Chinese 
language during the last generation. In 
writing Forth, these changes may actu- 
ally benefit the programmer. 

Roger V. Swearingen 
5333 Baltimore Dr., #158 
La Mesa, CA 92041 
(619) 697-3290 


And the Shotgun Approach 


Dear Doctor, 

I must say that, as a new subscriber, it 
is a pleasure to have an issue arrive that 
demonstrates my own good judgment 
with regard to magazine dollars. While 
I’m not a C programmer, the C articles 





were a font of interesting algorithms 
and ideas. The core of my _ interest, 
though, was in the three articles direct- 
ly addressing my interests CP/M on 
the Commodore 64, Chinese Forth, and 
decision and cognition theory in Com- 
ments on Sixth Generation Computers. 

With regard to CP/M on the C-64, I 
would add to the author’s description 
of how to patch around having two 
1541 disk drives the admonition that 
the 1541 was not really built for this 
job in the first place, and if you are 
going to have more than one disk drive 
on the Commodore-64, you should se- 
riously consider getting a dual drive 
unit in the first place. The second com- 
ment is that, beyond the drive format 
availability, there is the fact that the 
64 has a 40-column screen, and while 
you can get around this, it comes at a 
price that belies the 64’s original value. 
Yes, there are a lot of Commodore 64s 
out there, but no, there are not a lot 
with CP/M; this situation is stuck in 
the old loop that it will take 64-format- 
ted disks available in the real world to 
make CP/M a more popular option for 
the 64, and it will take more 64s with 
CP/M to make more 64-format disks 
available. The screen makes it all that 
much less likely. 

Timothy Huang’s article on Chinese 
Forth was very intriguing. It would be 
nice to see what matrix representations 
of the listed characters would look like 
and what resolution is necessary to 
produce them. I might also comment 
that in a subroutine-threaded Forth (in 


6502), C: could simply be 
: C: create -4 allot JUMP C;’,; 


that is, back up over the 4-byte subrou- 
tine-threaded create routine, put the 
constant for the processor’s jump in- 
struction ($4C for the 6502) into the 
dictionary, and follow it with the cfa of 
the primary instruction. This demon- 
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strates the versatility of subroutine- 
threaded Forth—with direct execut- 
able machine instructions, you can 
jump directly into a definition. (For a 
discussion of subroutine-threaded 
Forth, see the June Byte.) 

Ah yes, but the almost-gem of the 
issue was Michael Doherty’s continua- 
tion of a dialogue on the future of com- 
puting. Almost everything Mr. Do- 
herty said is towards the point, if not 
quite to the point. With a slightly 
stronger base in physiology, he could 
have come right out and said it—the 
human brain is not, repeat, not a Tu- 
ring machine. We don’t know exactly 
what it is yet, but we do know that the 
basic unit of the human brain is not 
only switched but also magnitude 
modulated, and that its output may act 
so as to switch other neurons, to modi- 
fy the magnitude of their responses, or 
to do both simultaneously with the 
same or distinct target neurons. Push 
or pull it any way you prefer, and the 
result is still that the basic building 
block makes a difference. It may in 
fact not be possible to build a Turing 
machine with magnitude-modulated 
components; it is at any rate clear that 
this did not occur with the human 
brain. Here perhaps the useful meta- 
phoric distinction is not that between 
quantity and quality but between num- 
ber and quantity. You always have a 
distinct number of things. You never 
have a distinct quantity of something. 
When we improve our measurement 
capability to measure, say, an exact 
quart of liquid, we turn and look and, 
lo, what we have found is the number 
of atoms in a quart, and we have 
turned from measuring quantity to 
number. Please note that I am using 
these words in their squishy English 
senses and not in the precise Latin 
quantum of physics. 

So much of Mr. Doherty’s commen- 
tary was on the ball. He slips up on the 
discussion of information storage, 
however. He confuses information 
with the media on which it is stored. 
His oversight is not an uncommon one, 
after all. Who has seen information 
that isn’t stored in some medium or 
other? Good question indeed, and the 
answer may just be everyone, for we 
don’t know and are not yet even ready 
to address the question of where the 
quantum information of a quantum 
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Use Pmate™ once, and you'll 
never go back to an ordinary 
text editor again. Pmate is more 
than a powerful programmer's 
text processor. It's an inter- 
pretive language especially 
designed for customizing text 
processing and editing. 

Just like other powerful edi- 
tors, Pmate* features full-screen 
single-key editing, automatic 
disk buffering, ten auxiliary 
buffers, horizontal and vertical 
scrolling, plus a “‘garbage 
stack’’ buffer for retrieval of 
deleted strings. But, that’s just 
for openers. 

What really separates Pmate 
from the rest is macro magic. A 
built-in macro language with 
over 120 commands and single- 
keystroke ‘‘Instant Commands” 
to handle multiple command 


Most Program Editors 
Are Shockingly Primitive. 





sequences. So powerful, you 
can ‘‘customize’’ keyboard 
and command structure to 
match your exact needs. 

Get automatic comments on 
code. Delete comments. Check 
syntax. Translate code from 
one language to another. Set 
up menus. Help screens. You 
name tt. 

And, Pmate has its own set 
of variables, if-then statements, 
iterative loops, numeric calcu- 
lations, a hex to decimal and 
decimal to hex mode, binary 
conversion, and a trace mode. 
You can even build your own 
application program right 
inside your text processor. 

So, why work with primitive 
tools any longer than you have 
to? Pmate by Phoenix. $225. 
Call (800) 344-7200, or write. 


Phoenix Computer Products Corporation 


1416 Providence Highway, Suite 220 


Norwood, MA 02062 


In Massachusetts (617) 762-5030 


*Pmate is designed for microcomputers using the Intel 8086 family of 
processors, and running MS-DOS™ A custom version is available for 
the IBM PC, TI Professional, Wang Professional, DEC Rainbow, 
and Z80 running under CP/M™ 


Pmate is a trademark of Phoenix Software Associates Ltd. 
MS-DOS is a trademark of Microsoft Corporation. CP/M is a trademark of Digital Research, Inc. 
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particle is exactly. 

The reason that this is to the point is 
that, if this quantum information is in 
a null space, then it would be, in actu- 
ality, medium-free information, be- 
cause storage media don’t fit in dimen- 
sionless spaces. Well, if quantum 
information can be there, it is possible 
to entertain the notion of keeping other 
information there, and then the stor- 
age “‘space”’ constraint on information 
is quite meaningless. That doesn’t af- 
fect the main question of what will be 
processing the information, and it’s not 
too hard to see that the obvious next 
step after putting discrete processors in 
parallel is to put them in parallel with 
distributed analog processors. This 
leaves open whether we can engineer 
better analog processors than the von 
Neuman machines running around 
putting out provocative magazines and 
the like. 

Yours, 

Bruce R. McFarling 
600 W. Broadway #6 
Granville, OH 43023 


[More letters on Sixth Generation di- 
alogue next month. — Ed. ] 


Turbo Tidbits 


Dear Dr. Dobb's: 

I enjoyed the review of Turbo Pascal in 
the June issue. I have been using Turbo 
Pascal for several months, and it is an 
excellent program, fully deserving the 
praise in the DDJ review. I thought it 
would be useful if I listed some of the 
problems I have discovered in the Turbo 
Pascal system. I am presently using ver- 
sion 2.0 of Turbo Pascal on an 8-bit 
(CP/M) system. As far as I have been 
able to determine, virtually all of the fol- 
lowing persist in both versions | and 2. 

1. The installation program reverses 
the definition of screen hiliting and un- 
hiliting commands. There are several 
sources of confusion in the terminal in- 
stallation program, which manifest 
themselves when nonstandard installa- 
tion is attempted. 

2. The listing program, TLIST, has 
several bugs, the most serious of which 
result in missing characters or lines 
and an improper number of lines per 
page, which puts the page break in the 
middle of the page for long programs. 

3. In the 8-bit version, recursion is 
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not permitted unless a special compiler 
directive is used. However, no error 
message appears either at compilation 
Or run-time when code is recursive. 
This is a serious problem, because re- 
cursion may be indirect and hence not 
obvious (procedure A calls procedure 
B which calls procedure C which calls 
... procedure A). 

4. When inline code is used, a vari- 
able identifier may be used, which, ac- 
cording to the manual, is replaced by 
two bytes which contain the memory 
address of the variable. In fact, the 
variable name is sometimes replaced 
by the address of the variable and 
sometimes by an address which con- 
tains the address of the variable (indi- 
rect addressing). Which of these is the 
case depends on whether the variable is 
global, local, a var parameter, or other 
parameter, and in some cases how the 
variable was used previously in the 
program block. 

5. Turbo Pascal programs destroy 
all but about the first 30 characters in 
the command line buffer. 

Even with these problems, Turbo 
Pascal is a great program and a bar- 
gain. However, since Borland was noti- 
fied of some of these problems well in 


advance of the version 2.0 release, it is 
unfortunate that they didn’t make any 
corrections in the new version or even 
include a list of known bugs in the 
documentation. 

Sincerely yours, 

Harry Demarest 

Astro Research, Inc. 

Box 74 

Corvallis, OR 97339 


Dear DDJ, 
Regarding your review of Turbo Pas- 
cal in the June 84 issue, I agree that 
generally Turbo is a vast improvement 
over other compilers. There is one 
problem with Turbo which I find very 
disturbing, however, and that is the 
way it handles (?) integer overflow. 
The program (see figure below) illus- 
trates the problem. A total program 
crash would be much more acceptable 
than to have this sort of viper lurking 
around. To Borland’s credit, section 
3.1 of their manual plainly states what 
will occur, and there is even an entry in 
the index, but still how hard could it be 
to fix this? 

Donald G. Simpson 

1121 Manchester Dr. 

Raleigh, NC 27609 


Line 1 Col 1 Insert Indent B:INTBUG.PAS 
program IntegerBug (input, output); 
{ Demo to display results of integer overflow } 

{ Turbo Pascal v2.0 MS-DOS configured for Zenith Z-100 } 


var n: integer; 


begin 
ClirScr; 


write (‘Enter an integer between —32,767 and +32,767:—->'); 


readin (n); 
writeln; 


writeln ("The integer you have entered is: —> ’, n): 


writeln; 


writeln (‘Twice the integer you have entered is: —>‘,2*n) 


end. 


Enter an integer between — 32,767 and +32,767: —> 15000 
The integer you have entered is: —> 15000 
Twice the integer you have entered is: —> 30000 


— 


Enter an integer between — 32,767 and +32,767: —> 32767. | 
The integer you have entered is: —> 32767 
Twice the integer you have entered is: —> —2 


- 


Figure 
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Dear Sir: 

In the review of Turbo Pascal in your 
June issue, there is an apparent misun- 
derstanding of the with statement. I re- 
fer to material in the righthand column 
of page 76. The following Pascal ex- 
cerpts should clarify the matter. 


type 
rec2 = record 
sl : integer; 
s2 : boolean 
end; 
recl = record 
rl : integer; 
2‘ Tecl 
end; 
var 
ae Tecl: 
begin 
with a.r2 do 
sl := 5; 
writel n(a.r2.s1) 
end 


This will obviously output the inte- 
ger “‘5’’. Now amend the code part to 
read: 

begin 
with a do with r2 do begin 
sl := 5; 
rl:=4 
end; 
writeIn(a.r2.sl,’ ’,a.rl) 
end 

The output will be “5 4”. Obviously 
the nested with statement qualifies 
with “a” where applicable and with 
‘‘a r2”? where applicable. Finally, 
“with a,b,c...” is an abbreviation for 
“with a do with b do withcdo...”. So, 
the above fragment can be written: 

begin 
with a,r2 do begin 
sl := 5; 
rl:=4 
end 
writeln(a.r2.sl,’ ’,a.rl ) 
end 

I hope this sheds more light than it 

does confusion. 
Yours very truly, 
Herbert Kanner 
211 Washington Ave. 
Palo Alto, CA 94301 


DD) 


Dr. Dobb's Journal, October 1984 


*FAST EXECUTION - 
of your programs. 


*FULL & STANDARD 
IMPLEMENTATION OF C - 
includes all the features described by 
K & R. It works with the standard 
MSDOS Linker and Assembler; many 
programs written under UNIX can 
often be compiled with no changes. 


*8087 IN-LINE - 
highly optimized code provides 8087 
performance about as fast as possible. 
*POWERFUL OPTIONS - 
include DOS2 and DOS1 support and 


interfaces; graphics interface capability; 


object code; and librarian. 





“..C86 was the only compiler we tested that 
ran every benchmark we tried and gave the 
expected results... Computer Innovations 
C86 was the compiler that our staff 
programmers used both before and six 
months after we conducted the tests.” 
J. Houston, BYTE MAGAZINE - February 1984 


*FULL LIBRARY WITH SOURCE - 

6 source libraries with full source code 
the “large” and “small” models, soft- 
ware and 8087 floating point, DOS2 
and DOSALL. 

*FULL RANGE OF SUPPORT 
PRODUCTS FROM COMPUTER 
INNOVATIONS - 
including Halo Graphics, Phact File 
Management, Panel Screen Manage- 
ment, C Helper Utilities and our 
newest C_to_ dBase development 
tool. 

*HIGH RELIABILITY - 
time proven through thousands of 
users. 

*DIRECT TECHNICAL 
SUPPORT - 
from 9 a.m. to 6 p.m. 


Join The Professional Programmers Who Agree C86™ Is The C Compiler Of Choice 


For Further Information Or To Order Call: 


800-922-0169 


Technical Support: (201) 542-5920 





980 Shrewsbury Avenue 
Suite PW509 
Tinton Falls, NJ 07724 


Computer Innovations, Inc. 


™ 


PRICES SUBJECT TO CHANGE WITHOUT PRIOR NOTICE 
UNIX IS A TRADEMARK OF BELL LABS (86 1S A TRADEMARK OF COMPUTER INNOVATIONS, INC. MSDOS IS 4 TRADEMARK OF MICROSOFT 
PCDOS IS A TRADEMARK OF INTERNATIONAL BUSINESS MACHINES. 
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by D. E. Cortesi, Resident Intern 


An Optimizing Technique 

Early this year, your intern gave vent 
to the frustration he feels at the primi- 
tive designs of compilers for personal 
computers. All (or, at any rate, most) 
of them are simple one-pass, recursive- 
descent parsers. If you don’t know 
what that means, study the Small-C 
compiler; it’s a textbook example. In a 
recursive-descent compiler, the flow of 
control in the compiler echoes the syn- 
tactic structure of the source program 
(the syntax graph of the program at 
any point is described by the state of 
the compiler’s dynamic call-stack 
when it has analyzed to that point). In 
a one-pass compiler, the object code 
for each text element is emitted as soon 
as that element has been parsed. 

Such compilers are (relatively) easy 
to design, and they run quickly. How- 
ever, they are incapable of doing any 
kind of global optimization—this oper- 
ation requires the compiler to make 
multiple passes over the program. In a 
multipass compiler, the first pass 
(which can be designed as a recursive 
descent) validates the program’s syn- 
tax, collects information in the symbol 
table, and probably builds a tokenized 
version of the expression text for later 
processing. Later passes can apply the 
information found in the first pass in 
such a way as to make the final object 
code smaller, faster, or both. 

Several readers responded with long, 
thoughtful letters on the place of C and 
its compilers. David S. Tilton, for exam- 
ple, made the point that because C is a 
low-level language designed to give the 
programmer close control of the hard- 
ware, we shouldn’t expect a C compiler 
to do much optimization. He said, first, 
that the language is so simple there 
aren't many opportunities for a compiler 
to do optimization, and second, that the 
language gives programmers the tools 
they need to do the optimization 
themselves. 
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Another respondent, Mike Meyer, 
made an architectural point. He point- 
ed out that most data references in a 
recursive language such as C are to lo- 
cal variables and hence to the stack. 
“Unfortunately, the 8080 family just 
doesn’t support such things well. What 
a local reference turns into is ‘get the 
item so many words from the frame 
pointer.’ On an 8080, this translates 
into several instructions just to load a 
local.” 

Well, these letters got us thinking. 
In 8-bit machines, as Meyer says, the 
code for accessing a variable with the 
dynamic storage class is much slower 
than that for accessing a variable with 
the static storage class. Local variables 
of a function are dynamic by default, 
but the programmer can give them the 
static storage class. 

Now, every book on C programming 
advocates the use of lots of small func- 
tions—each with its handful of local 
variables—and these locals are just the 
pointers and counters that are most 
heavily used. But if you are using an 8- 
bit machine, all those locals will cost 
you heavily. ““Everybody” knows that 
for best performance at least some of 
them should be declared static. 

There are problems in doing so. You 
have to decide which functions are in 
the critical 20% and which of their lo- 
cals are really important; you have to 
modify the source text and recompile. 
These are clerical tasks that the com- 
puter should do. Furthermore, if you 
make a local variable static in a recur- 
sive function, you'll cause a tricky bug. 
It isn’t always easy to tell which func- 
tions can be called recursively and 
which cannot, especially if you are 
modifying someone else’s program. 

Finally, there is no speed penalty on 
dynamic locals in most 16-bit ma- 
chines. In the 8086, for example, it 
costs no more time to access the stack 
frame than it does to access the data 


segment. Yet, if your 8-bit program is 
ported to a 16-bit machine, those static 
local declarations will port right along 
with it. 

This seems like a perfect example 
with which to refute Tilton’s point—a 
case in which the programmer could 
not do a decent job of optimizing and 
in which the compiler, even an 8-bit 
compiler, could. Shouldn’t an 8-bit C 
compiler be able to tell which local 
variables should be static and which 
not? At the very least, the compiler 
could tell which functions contain no 
function calls at all; their locals cer- 
tainly can be static. Furthermore, no 
two such functions can ever be active 
at the same time, so the locals of all 
such functions could be allocated in 
the same area of static storage. 

Well, it’s all very well to say a com- 
piler should do these things, but is it 
really a practical thing to ask? We sat 
down one day and worked out the opti- 
mization scheme that follows. After de- 
scribing the method at a high level, 
we'll consider its space and time 
requirements. 


The Well-Behaved Function 
The input to a C compiler is a source 
text that declares one or more func- 
tions. Each function is public; it can be 
called from other compilations. 

The functions contain expressions, 
and an expression can include a refer- 
ence to other functions. A function 
that refers to itself is directly recursive. 
A function can be indirectly recursive, 
in that it calls a function (that calls a 
function, and so on) that calls the first 
function again. 

A reference to a function that is not 
declared in the same text is an external 
reference; the compiler can’t know 
anything about the called function. In 
particular, a function that contains an 
external reference is potentially recur- 
sive, because the external function 
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might call (a function that calls, and so 
on) the first function again. 

The functions we want to identify 
are those that are not recursive. Be- 
cause the compiler’s information is 
limited, we will take a conservative ap- 
proach, assuming a function is recur- 
sive if there is the slightest possibility 
that it might ever be so. The functions 
we can identify as definitely nonrecur- 
sive we will call ‘‘well-behaved func- 
tions,” or WBFs. A WBF can have its 
local variables allocated in static stor- 
age. We can give a recursive definition 
of a WBF: 


e A function that calls no other func- 
tion is well behaved. 
eA function that calls only WBFs is 
well behaved. 
The optimization scheme is based on 
this definition, but a lot of details have 
to be tended to first. 


GLFs and TFs 


The functions of the C standard li- 
brary are named as external functions, 


S-100! 





IBM PC/XT! 



















If you've been “patient” with slow 
disk drives for too long, SemiDisk 
will relieve your suffering. 


Fast-acting. 


The SemiDisk, a super-fast disk 
emulator, stores and retrieves data 
much faster than either a floppy or 
hard disk. 


Easy to apply. 


Installation is as easy as plugging 
the SemiDisk into an empty slot of 
your computer, and running the 
installation software provided. 


Regular 
and extra-strength. 
SemiDisk I is the standard model 
for S-100, SemiDisk II offers extra 
speed and flexibility for custom 


Call 503-646-5510 for CBBS/NW and 503-775-4838 for CBBS/ 
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-yet they are almost always well be- 


haved. We can think of only one case 
in which a library function is ill be- 
haved. In some implementations, a file 
access function may, on encountering 
a disk error, make an indirect call to a 
user-written error function. In this 
case, the error function might conceiv- 
ably call the function that called the 
library function in the first place, thus 
producing a recursion. 

In the main, functions from the 
standard library are well behaved, and 
they are named in many user functions 
that, but for these references, would be 
seen as well behaved. Let us define a 
set GLF of good library functions that 
are always well behaved and use it to 
expand our definition of a WBF: 


¢ A function that calls no other func- 
tion is a Terminal Function (TF). 

¢ A function that calls only GLFs is also 
aE T 

eA TF isa WBF. 

¢ A function that calls only WBFs is a 
W BFE. 


“+E Get Fast Relief! 


EPSON QX10! 


TRS’80 II! 


S- 100 applications. 


Contains gentle buffers. 


CP/M®80 installation software 
includes SemiSpool, which buffers 
print data in the SemiDisk. This 
allows the computer to be ready for 
other uses immediately after issuing 
a print command. 


No emulator amnesia. 


The optional Battery Backup Unit 
(BBU) plugs into the SemiDisk, and 
supplies power even when the 
computer is off. A battery keeps the 
data alive during power outages of 
four hours or more. 


Stops head-aches. 


Unlike a hard disk, which can 
‘crash’ its head on the rotating disk 


PCS, both SemiDisk-equipped computer bulletin boards 


(3400/1200 baud). SemiDisk, SemiSpool trademarks of SemiDisk Systems. CP/M trademark of Digital Research. 
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We will detect WBFs in two stages: 
first, we will find all the TFs; then we 
will find the WBFs that are not TFs. 


The Symbol Table 

We are supposing a multipass compiler. 
The first pass performs the syntactic 
parse of the source text and, for every 
identifier named in it, builds a symbol 
table entry (STE). We are concerned 
only with the STEs built for function 
identifiers. Besides the other informa- 
tion the compiler needs, we will require 
these items in a function STE: 


¢ gif: Boolean; true for a good library 
function 

¢ idf: Boolean; true for an internally de- 
fined function (one defined in this 
source text) 

¢prf: Boolean; true for a possibly re- 
cursive function 

e caf: Boolean; true when this function 
calls another function 

epwb: Boolean; true for a_ possibly 
well-behaved function 

¢twb: Boolean; temporary flag for 





ZENITH Z-100! 






surface, and a floppy, which grinds 
the disk constantly, the SemiDisk 
gives you ultra-fast, silent data 
transfer. 


And SemiDisk’s price wont raise 
your blood pressure. 


512K 1Mbyte 


SemiDisk I, S-100 $995 $1795 


SemiDisk II, S-100 $1245 $2095 
SemiDisk, TRS-80 II $995 $1795 
SemiDisk, IBM PC $945 $1795 


SemiDisk, Epson QX10 $995 
SemiDisk, BBU $150 


SEMIDISK 


SemiDisk Systems, Inc. 
P.O. Box GG, 

Beaverton, Oregon 97075 
503-642-3100 
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well-behaved functions 

e wbf: Boolean; true for a well-behaved 
function 

¢ asl: Boolean; the aggregate size of the 
local variables declared in this 
function 

¢osl: integer; the offset of static locals 
(when used) 

¢ map: integer; used in mapping during 
pass 2 

The use of these items will become 
clear as we proceed. 


Before Pass 1 

Before the first pass begins, the compil- 
er must prepare a list of names of GLFs. 
The list can be coded into the compiler 
or it can be read from an external file. 
The latter course would allow users to 
extend the list with names of their own 
GLFs or to remove names if they should 
modify a library function in such a way 
as to make it ill behaved. 


During Pass 1 

During the first pass, the compiler 
must collect information that will be 
used to identify WBFs. These actions 
are in addition to the other things it 
does while parsing the source text. 

When an STE is created for a func- 
tion, the added variables listed above 
must be initialized. Except for glf, all 
the Booleans can be initialized to false. 
The name of the function must be 
looked up in the list of GLF names and 
the glf Boolean set true if it is found 
and false otherwise. The contents of the 
integer items can be undefined. When a 
function identifier is parsed in an ex- 
pression or an initializer, an STE will be 
created as described (or merely found, 
if the function was declared 
previously). 

When a function declaration is 
parsed, its STE will be created (or found, 
if the function is declared after it has 
been referenced). At that time, the idf 
Boolean must be left fa/se if the declara- 
tion has the external attribute or set true 
if it does not. After a nonexternal func- 
tion has been parsed, the asl integer 
must be set to the aggregate size of the 
local variables declared in the function. 

When a function call is parsed, the 
compiler must record it as a tuple 
(source, target) in a list of such call 
tuples. In the tuple, source is the ad- 
dress of the STE of the current func- 
tion, target that of the called function. 
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If the call is indirect through a point- 
er, the called function is unknown. In 
that case, the tuple should be recorded 
as (source, source). This makes the call 
appear to be a direct recursion. That’s 
reasonable, because an indirect call 
could conceivably represent a recur- 
sion, either direct or indirect. 

At the end of the first pass, the list of 
GLF names has served its purpose. Its 
space can be reclaimed. 


Identify TFs 
When pass | is over, an STE exists for 
every function identifier, and a call tu- 
ple has been recorded for every call. 
Now we can identify the terminal func- 
tions (TFs). To do so, scan the list of 
call tuples and, for every (source, 
target), 
if (source = = target), set 

source.prf = true 
e else if (not (target.idf or target.glf)), 

set source.prt = true 
eelse if (not target.glf), set source.caf 

= EAE 

The TFs are functions that call no 
functions or call only GLFs. They can 
now be marked as WBFs. Because they 
can't be recursive, their locals can be 
Static. Because they call no user-de- 
fined functions, no two of them can ever 
be active simultaneously; therefore, 
their static locals can be allocated in a 
space that is common to all of them. 

We will need two variables to handle 

storage allocation: slbot will contain 
the base offset of an area for static lo- 
cals, and sltop will track the high- 
water mark of the area. Set both to 
zero. Then scan the symbol table and, 
for every function entry in which (idf 
and not (prf or caf)) is true: 


eset wbf = true 
eset osl = slbot 
eset sltop = max(sltop,asl) 


When code is generated for WBF, its 
locals will be allocated at an offset of osl 
in an area of static storage. The locals 
of a function not marked as a WBF will 
be given dynamic allocation as usual. 

If it should prove that there are no 
TFs, nothing further can be done. 


Map PWB Functions 

We have established the TFs (which 
are also WBFs), but there are more 
WBFs to be found. They are a subset of 


the set of possibly well-behaved func- 
tions (PWBs). To locate this subset 
(actually multiple subsets), we need to 
establish a mapping from the PWBs to 
the integers 1..P, where P is the 
count of PWBs. 

Allocate space for an array of point- 
ers to function STEs and call it F. Then 
scan the symbol table for PWBs. A 
PWB is a function STE for which (idf 
and not(prf)) is true. This includes the 
TFs plus all the functions that contain 
neither an indirect call, an external 
call, nor a direct recursion. (Some of 
these may yet be recursive. We will 
never identify them as such, but we 
won't call them WBFs, either.) Initial- 
ize P to zero. For each function STE, 
eset pwb = idf and not(prf) 
¢if not(pwb), then iterate, else | 
* increment P 
eset map = P 
eset F[P] to the address of the STE 

Now the functions F[1.. P] are the 
(possibly) well-behaved ones, and the 
array F serves to map them to the inte- 
gers 1.. P. If there are none, of course, 
nothing further can be done. 


Cross-Map Function Calls 
We must prepare an array of Booleans 
B having P rows and columns. Each 
row B[r,*] will represent calling func- 
tion F[r]; each column B[*,c] will rep- 
resent called function F[c]. Allocate 
the array and clear its elements to false. 

Fill in the array with a scan of the 
call tuples. For each tuple (source, tar- 
get), if both source and target are 
PWBs, set Bl source.map,target.map] 
to true. 

After this is done, the list of call tu- 
ples has served its purpose; its space 
can be reclaimed. 


Discover WBFs 

We will now make multiple passes over 
the array B. On the first pass we will 
find those functions that call only TFs. 
Because they do, they are WBEFs;: 
hence, their locals can be static. Be- 
cause they don’t call each other, no two 
of them can be active at once; hence, 
their locals can be allocated in a pool 
that is common to them (but distinct 
from the space used by TFs). In each 
later pass we will find a set of functions 
that call only WBFs found in prior 
passes. The same comments apply to 
each set of functions. 


Dr. Dobb’s Journal, October 1984 





















Development Tools That Work 


Avocet cross-assemblers are fast, reliable 
and user-proven in over 4 years of actual 
use. Ask NASA, IBM, Xerox or the 
hundreds of other organizations that use 
them. Every time you see a new micro- 
processor-based product, there’s a good 
chance it was developed with Avocet 
cross-assemblers. 


Avocet cross-assemblers are easy to use. 
They run on almost any personal com- 
puter and process assembly language for 
the most popular microprocessor families. 


Your Computer Can Be A 
Complete Development System 
Avocet has the tools you need to enter 


and assemble your soft-ware and finally 
cast it in EPROM: 


VEDIT Text Editor makes source code 
entry a snap. Full-screen editing plus a 
TECO-like command mode for advanced 
tasks. Easy installation - INSTALL pro- 
gram supports over 40 terminals and 
personal computers. Customizable 
keyboard layout. CP/M-80, CP/M-86, 
Moro DOS 1-08 6. aw OS $150 


EPROM Programmers let you pro- 
gram, verify, compare, read, display 
EPROMS but cost less because they 
communicate through your personal 
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To be sure that the functions found 
in each pass don’t call each other, we 
will use the twb flag as a temporary 
note of a function’s well-behavedness 
until the pass is complete. We will also 
count the number of WBFs we discov- 
er. When we make a pass that discov- 
ers none, we will stop. The logic of the 
outer loop is: 


eset discoveries = 0 

eset slbot = sltop 

efor r from 1 to P, perform inner 
procedure 

e if discoveries = 0, break 

efor r from | to P, if F[r].twb, mark 
Flr] a WBF 

To mark a function as a WBF, we do 
these things: 


*set twb = false 

eset wfb = true 

eset osl = slbot 

*set sltop = max(sltop, slbot+ asl) 

The inner procedure inspects one 
function to see if it is well behaved. It 
needs to be performed only for functions 
that are not yet known to be WBFs. Its 
purpose is to set the F[7r].twb flag. 
eif (F[r].wbf), return 
eset F[r].twb = true and perform in- 

ner loop 

The inner loop runs a variable c 
from | to P. For every B[r,c] that is 
true, it checks F[c].wbf; if it is false, 
then F[r].twb must be set fa/se and the 
inner loop can end. 

At the completion of this operation, 
the WBFs have been identified in non- 
conflicting groups. Each group has 
been assigned an offset for its static lo- 
cals, and sltop contains the aggregate 
size of all static locals. 


Performance 

Through the point of identifying the 
TFs, this method shouldn’t impose much 
of a load on a compiler, even an 8-bit 
compiler. The code added to pass | and 
the code to find the TFs are fairly small. 
The primary cost is in three blocks of 
space: the list of GLFs, the list of call 
tuples, and the extra items in a STE. 

If space is a problem, the list of 
names of GLFs need not be complete. 
The list might contain only the names 
of the most common library functions. 
The more names in it, the more TFs 
that can be found. However, the only 
effect of omitting some GLFs is to 


make PRFs of some functions that 
could have been TFs; these will have 
dynamic locals when they could have 
had static ones, but the object program 
will still run. 

The list of call tuples can also be 
truncated. It could be allocated in a 
small area of fixed size. Each tuple 
needs only 4 bytes, so an area as small 
as 256 bytes could contain up to 64 tu- 
ples—a useful number for small pro- 
grams. When a function call is parsed 
and the tuple list is found to be full, 
pass | would mark the source function 
as a PRF and not record a tuple. As a 
result, a function whose calls were not 
completely recorded as tuples could 
never be identified as a TF or a PWB. 

The extra STE information could im- 
pose the largest cost, because it adds 
several bytes to every symbol-table en- 
try. However, that need not be true. 
Not every STE describes a function. 
The information unique to a function 
could be allocated separately and dy- 
namically when a function is entered in 
the symbol table. The basic STE format 
would only need to allow room for a 
pointer to the function information, not 
the information itself. Furthermore, 
some of the STE items used here can be 
overlapped. The map integer may be a 
union with the osl integer, and the pwb 
and caf flags can be a union. 

The cost of the second phase, locat- 
ing other WBFs, is harder to analyze. It 
requires F, a vector of addresses of 
length P, but P is not likely to exceed 
100, so F is unlikely to occupy more 
than 256 bytes. Furthermore, F could 
be built in the space previously occu- 
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pied by the list of GLFs. 

The array B has P *P elements, so it 
could become quite large if it used one 
byte per element—Il10K bytes when 
P=100. If it were stored as one bit per 
element, however, its size would be 
reasonable. In any event, the arrays F 
and & are transient; they can be dis- 
carded as soon as this part of the com- 
pile is finished. 

The time cost of the second phase is 
potentially large. Each pass through 
the outer loop takes time proportional 
to P; there might be as many as P 
passes made. The inner loop takes time 
proportional to P, so at first blush the 
running time appears to be proportion- 
al to P cubed. It is not quite that bad, 
however, because the inner loop is only 
applied to functions that are not yet 
marked as WBF. Initially all the TFs 
are so marked, and more functions are 
marked on each pass. Furthermore, 
the inner loop can break off as soon as 
it is known that the current function 
calls a function that is not known as a 
W BF. 

In fact, the inner loop need not be a 
loop at all, if B is stored one bit per 


element. The whf flags of the functions 
F{1..P] could be collected into a bit 
vector before the outer loop com- 
mences—while building F, for exam- 
ple. Then the inner loop could be re- 
duced to anding the current row of B 
with that bit vector and comparing the 
result to the current row of B. This ef- 
fectively removes the loop from the in- 
ner procedure. 

That done, the time cost of the sec- 
ond phase becomes proportional to 2P 
times the number of passes made. The 
number of passes will be roughly pro- 
portional to the depth of nesting of 
function calls in the compilation. At 
one extreme, the compilation might 
define a chain of functions, A calling B 
calling ... calling Z, a TF. Then one 
WBF would be found on each pass, and 
P passes would be made. At the other 
extreme, the compilation might define 
a set of independent TFs (and PRFs, 
but those are irrelevant), and only one 
pass would be made that would find no 
more WBFs. 


Summary 
In summary, we’ve outlined a method 


by which a C compiler could locate sets 
of functions whose local variables can 
be static and allocated in common 
pools. The time and space costs of the 
method are small for finding the first 
set (the TFs) and probably reasonable 
for finding many sets. 

The method is described in the con- 
text of C, but it ought to be applicable 
to Pascal or Modula-2. Furthermore, in 
languages where every function is not 
automatically public, the TFs and 
WBEFs have other useful properties. TFs 
are potential candidates for in-line ex- 
pansion as macros, for example, and all 
WBEFs are candidates for use of a short- 
circuit protocol for procedure calls that 
doesn’t require a full stack frame. 

We'd be delighted to hear from any 
designer who actually tries the method 
out or from any reader who finds a flaw 
in it. 


DD] 
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by Robert Blum 


Everybody apparently has at least one 
true-life story to relate when the topic 
of conversation turns to humiliation. 
I’m no exception. I used to have several 
favorite stories; I now have another. 

Several months ago I decided that I 
soon would have to replace some of my 
then dreadfully old S-100 hardware be- 
cause I was beginning to experience ex- 
cessive down time. Except for the cost 
of an upgrade, I wasn’t at all upset at 
the prospect of buying some new hard- 
ware. I had been waiting quite a while 
for a sound reason to move ahead and 
bring up a higher performance system. 

Many new high performance boards 
had become available since my origi- 
nal purchases. This caused me great 
consternation when deciding what I 
should buy. I wasn’t unhappy with the 
performance or features of the boards 
I had at the time; they were simply old 
and needed replacement. As it finally 
worked out, I didn’t find anything that 
better served my needs. 

I elected first to renew my 4 MHz 
CompuPro Z80 CPU board with a more 
recent revision level of the same model, 
capable of 6 MHz operation. I knew my 
present memory cards would function 
perfectly at the increased clock rate be- 
Cause they were rated at 12 MHz, as 
were the I/O boards I was using. 

I was not nearly as confident about 
the floppy disk controller that I had 
purchased from a different manufac- 
turer. Of all the boards in my system at 
that time, the floppy disk controller 
was the most complex and the one that 
I knew the least about. I wasn’t sure 
that I would be able to find a hardware 
solution to a speed-related problem if 
one were to occur. However, if at all 
possible, I wanted to keep the board 
because of the time I had spent fine- 
tuning my BIOS code. The thought of 
reinventing the wheel for another disk 
controller board didn’t excite me in the 
least. Fortunately, a phone call to the 
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manufacturer brought good news: | 
could upgrade to the latest revision lev- 
el board, which was guaranteed to be 
100% software compatible with the old 
one and to run flawlessly at 6 MHz, all 
for only a nominal upgrade charge. 

While waiting for the new disk con- 
troller to arrive, I ran diagnostics con- 
stantly for several days. During that 
time not one error occurred that I 
could attribute to the new hardware. 

Soon the new disk controller arrived. 
I wasted no time getting it ready for 
use and couldn’t have been happier 
when it booted for the first time from 
drive A:. All seemed rosy until several 
programs on the A: drive turned up 
lost. Listing the directory showed that 
the programs were definitely missing; 
in their place were several meaningless 
filenames. I began to feel a bit uneasy 
because the last time I saw a display of 
this type was when I helped a friend 
rebuild his disk directory after a mys- 
terious system crash. 

I executed my disk utility program, 
which allows sectors to be displayed in 
hexadecimal, to see what was causing 
these unknown filenames to appear. | 
started my search with data group zero, 
which on all standard CP/M systems is 
the start of the directory area. About 
halfway through data group one, | 
found a sector that had been completely 
zeroed. I didn’t have a hint as to what 
could have done this but suspected that 
the disk controller might be more clock 
rate sensitive than I had been led to be- 
lieve. I slowed the CPU down to 3 MHz 
and inserted another disk into drive A:. 
Again the system booted on the first 
try, but this time it ran without destroy- 
ing the directory. 

This verified my first suspicion that 
the disk controller was speed sensitive. 
However, the manufacturer had told 
me that running at a faster rate would 
be no problem. I called again to find 
out if I had done something wrong or 





possibly had not configured the con- 
troller board correctly. I was told to 
check several wiring changes and was 
again assured that all would work as 
planned after the bugs were shaken 
out. I dutifully went about checking 
for any mistakes I had made during 
setup—without result. 

Having thoroughly checked the 
hardware, I turned to my BIOS. The 
only area I could find that appeared in 
the least suspicious was a section of 
code in the warm boot routine that 
flushed any active deblocking buffers 
to disk when a program ended. I 
thought there was an outside chance 
that the disk heads were being moved 
before the deblocking buffers were 
written. I couldn’t imagine this hap- 
pening but commented out several in- 
structions for testing purposes. After 
installing the modified version of the 
BIOS on the system tracks of a test 
disk, I again speeded up the CPU to 6 
MHz and booted from disk. Once 
again, after several disk accesses, a 
sector in the directory was destroyed. 

At this point I had tried everything | 
could think of. Rather than continue to 
shoot in the dark, I turned my troubled 
machine over to a hardware magician 
for repair. Several days later my system 
returned running flawlessly at 6 MHz. 
I was told that the solution was a few 
minor hardware adjustments. 

For months now I have been running 
the system without any further hard- 
ware problems. However, a few soft- 
ware situations have cropped up. I use a 
fairly well-known data base package for 
most of my application-oriented tasks. 
After installing the latest release of this 
software, I suddenly began losing large 
portions of my indexed data files. Inves- 
tigation showed that the data content of 
all the records was present in the body 
of the file but the indexes were being 
corrupted. Several phone conversations 
with the technical support people 
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proved fruitless, so I wrote a couple of 
test jobs that I knew would consistently 
fail on my system and sent them along 
for analysis with my distribution disks 
and a problem report. 

A short while later the support peo- 
ple returned my package with a note 
saying that my test jobs had failed on 
their machine as well. They further ac- 
knowledged that a problem exists but 
they were unable to pinpoint the source 
since it appeared to be a CP/M idiosyn- 
cracy. In the meantime I could apply a 
temporary fix, which involved adding 
several instructions to each of my jobs 
to ensure that the data buffers were 
saved to disk after each update. 

A practically identical situation 
reared its head a couple of weeks ago. | 
was in the process of installing a new 
release of my favorite BASIC interpret- 
er. After I had completed the configu- 
ration process and was trying to execute 
the new interpreter, a message ap- 
peared on my CRT instructing me to 
run the configuration process before us- 
ing the BASIC runtime system. That 
sounded like a reasonable request—ex- 


cept I had already completed that step. 
A call to the software manufacturer 
proved to be a valuable lesson for me. 
He informed me almost right from the 
beginning of our conversation that my 
problem was due to a faulty BIOS. He 
explained that his configuration utility 
reads the first sector of the program 
and modifies it according to answers 
given by the operator. At the conclu- 
sion of this interaction the changed 
sector is rewritten to disk and the file is 
closed. Unfortunately, CP/M 2.2 does 
not automatically flush deblocking 
buffers when a file is closed. Under 
normal circumstances this procedure 
works fine; problems occur if the BIOS 
warm start routine does not flush the 
remaining deblocking buffers when a 
program ends. This wasn’t exactly 
what I wanted to hear, and I held my 
ground by refusing to give any cre- 
dence to a possible bug in my BIOS. 
The fellow with whom I was talking 
wasn’t about to be swayed from his con- 
victions, which made me think twice 
about what he had to say. It didn’t oc- 
cur to me until the next day that 


months ago I had commented out sever- 
al instructions in the warm start routine 
of my BIOS while trying to find a disk 
controller problem and in my haste had 
not returned them to their original or- 
der. After I did so, both of my software 
packages began to run properly. 

If you have experienced problems of 
this type, you might want to look 
through the warm start portion of your 
BIOS listing for a sequence of instruc- 
tions similar to the following: 

LD A,HSTWRT SIS HOST BUFF 


“ER ACTIVE 
OR =A - 
CALL:-NZ,WRITEHST.; YES—-WRIVE IT 
-TO DISK 


Depending on whether your BIOS was 
written from scratch or patterned after 
the DRI examples, the instructions in 
the listing may not be even close to 
those in your BIOS. Nonetheless, what 
you are looking for is a section of logic 
that tests for and flushes any remain- 
ing active deblocking buffers. DD} 
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THE SQFT WARE DESIGNER 


by Michael Swaine 








The following discussion never took 
place. 

The software designers and critics 
whose words appear in this article have 
never gathered as a group to argue the 
design of software. If they had, it is 
doubtful that the precise exchange of 
views pieced together here would have 
resulted. But all the words I have 
quoted were actually spoken by the per- 
sons to whom they are attributed, and I 
have attempted to avoid changing the 
sense of any utterance in changing its 
context. I don’t pretend that I have left 
every nuance intact. 

The error of interpretation I am 
most likely to have committed is to 
make the speakers appear more dog- 
matic or polarized than they actually 
are. I have placed opposing views next 
to one another here to focus attention 
on the differing views; the undesired 
side effect of this is to make the con- 
trasted views read more strongly than 
they would in isolation (or in their 
original context). Just remember that 
these people are all more complex indi- 
viduals than their two-dimensional 
projections onto these pages. 


The Participants 

Rob Barnaby is the author of one of the 
best-selling software packages in his- 
tory, WordStar. The compleat program- 
mer, Barnaby delivered the original 
WordStar to MicroPro on disk, de- 
bugged and ready for duplication, along 
with camera-ready copy for the manual. 

Lee Felsenstein is a hardware de- 
signer whose credits include the Pen- 
nywhistle modem, the Sol-20, and the 
Osborne |. 

Paul Heckel is the president of 
Quickview Systems, a software design- 
er, and the author of The Art of 
Friendly Software Design. 

Philippe Kahn is the president of 
Borland International, maker of Turbo 
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Pascal. 

Giacomo Marini is the vice presi- 
dent for software development for Lo- 
gitech, maker of Modula-2 compilers. 

Anthony Skjellum is president of 
Pyramid Systems, a software designer, 
and DDJ’s C and Unix columnist. 

Pierluigi Zappacosta is the president 
of Logitech and formerly developed 
software on early 8-bit micro- 
computers. 


It began last spring. Borland Interna- 
tional’s Turbo Pascal was beginning to 
attract attention, and editor Reynold 
Wiggins and I drove to Scotts Valley to 
talk with Borland’s president, Philippe 
Kahn. In the course of our discussion, 
the following exchange took place: 


DDJ: Turbo Pascal is doing very well. 
Sidekick looks interesting. What’s 
next? Will you do an implementation of 
C? 

Kahn: C is a disease. When I see peo- 
ple writing spreadsheets in C, I think, 
‘“They’re out of their minds.” It was 
designed to write operating systems. 
Modula-2 is good for that [writing 
spreadsheets]. We'll doa C. We'll doa 
C because everyone wants a C. But in 
Europe C is seen as an American dis- 
ease, and here people are trying to 
spread it. 


Now, C is a programming language 
originally developed at Bell Labs for use 
in writing operating systems; it has re- 
cently become popular as a general-pur- 
pose programming language. But not, 
apparently, with Philippe Kahn. Struck 
by the vehemence of Kahn’s reaction, I 
started talking with software designers 
and critics about what they thought the 
real differences were between C and 
Modula-2 from the perspective of soft- 
ware design, and the result was this 
pseudo-roundtable discussion. 


Zappacosta: |’m surprised, in a way, 
that C was invented on the East Coast, 
because it would be the perfect lan- 
guage to have been invented on the 
West Coast. 

Barnaby: [ don’t follow that. I think 
it’s more a distinction of academic and 
scientific vs. free-flowing, open-ended 
design work. 

Heckel: | think the point is not East 
Coast vs. West Coast, especially since 
there’s so much movement between 
coasts, but rather the academic envi- 
ronment vs. the let’s-get-the-job-done 
environment. 

DDJ: Bell Labs is not academic? 
Heckel: OK, you might argue that 
Bell Labs is really an academic envi- 
ronment, but I point out that the char- 
ter of that lab was not to develop a lan- 
guage like C. C was a side effect. They 
decided that they wanted a simple op- 
erating system, so they developed an 
early version of Unix; they decided 
they wanted a high-level language, so 
they developed C. None of these things 
were what they were supposed to be 
doing. They were designing for them- 
selves, focusing on tools for their own 
immediate needs rather than on an ac- 
ademic concern with how pretty an al- 
gorithm would look on paper. Modula- 
2, on the other hand, was a follow-on of 
Pascal that came out of the academic 
community. And Pascal was designed 
for pedagogical purposes, for the way 
the world ought to be. 

DDJ: | think Pierluigi was drawing on 
a more general West Coast stereotype, 
the free-wheeling, laid-back Califor- 
nian. And whether or not the stereo- 
type has any validity, I wonder if there 
isn’t something to the idea that C is 
well designed—even if less deliberately 
designed than Modula—for a freer, 
less-regimented kind of programming. 
And if so, what does that mean? 
Zappacosta: Yes. On the West Coast, 
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people say, I want to do whatever I 
want; I am my own boss. Why not? In 
the States you can change your last 
name, so why shouldn’t you use C? 
Skjellum: Well, freedom is an issue. 
But it can be a very practical matter. 
You sit down to write a program and 
you don’t want to fool around with a 
lot of academic rules and constraints. 
Heckel: Obviously the Bell Labs peo- 
ple tried to integrate as much of the 
knowledge they had gained regarding 
compiler construction and design as 
they could, but without getting in the 
programmer’s way, still giving people 
the freedom they need. When you're 
designing real operating systems and 
real compilers, you try to give yourself 
freedom rather than a straitjacket. 
DDJ: It sounds like getting the job 
done is also an issue. Paul and Tony 
have both characterized C as a get-it- 
done language, and Paul has contrast- 
ed it to the structured, modular style of 
Pascal and Modula. But Lee, you’ve 
been talking to people recently about 
your own get-it-done approach to de- 
sign, and what you’ve been saying 
sounds structured, modular. 
Felsenstein: [’m getting into comput- 
er programming a bit more. First of all, 
I can’t avoid it. No hardware designer 
today can ignore software. Secondly, 
for our project for the Community 
Memory terminal we have to make a 
bit of clever firmware. I intend to do 
that in one day, but I don’t intend to do 
it myself. P’ll spend about three weeks 
working out the structure of the system 
without getting down to the details. 
Those will then be filled in by a small 
army of coders—volunteers, in this 
case—who will have received specifica- 
tions and will sit down for a few hours 
to code small routines. 

DDJ: You’re approaching software de- 
sign from the point of a hardware 
designer. 

Felsenstein: It’s similar to building at 
the level of the chip. You work from 
top down, build a structure, and at the 
last minute fill it in. To build software 
like hardware, I am finding, requires a 
fair amount of discipline to avoid rush- 
ing ahead, and it also requires that you 
be able to visualize the construct. 
Heckel: [’m not against structured 
programming, but you don’t hire a mu- 
sician because he can read music bet- 
ter than the other guy; you hire him 
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because he plays better than the other 
guy. The aesthetics of the algorithm is 
one of several factors one uses in evalu- 
ating software. The problem with the 
direction of structured programming is 
that there are more and more ways to 
do something wrong. 

DDJ: But structured programming, 
modular design, the approach that Lee 
just described and that Paul talks 
about in his book, that’s all language 
independent, right? C has perfectly 
good tools for writing structured pro- 
grams, and you can write modular 
code in any language. So how, specifi- 
cally, is C any “freer” than other 
languages? 

Skjellum: C doesn’t force as many as- 
sumptions on the programmer. Think 
about the assumptions that are forced 
on you, in many languages, by the 
compiler. For example, you are forced 
to use intrinsic functions. In Fortran, 
all the I/O is intrinsic, and the compil- 
er makes assumptions to help that 
along. And there are some traps that 
this leads you into. Think of the Write 
statement; the expression within the 
parentheses can be quite complex, and 
you might expect it to be handled by 
the compiler, but the compiler just 
passes it along to the runtime package. 
In _C, you would know better than to 
make that mistake; the compiler 
doesn’t play favorites. 

DDJ: In C, the compiler has no 
prejudice? 

Skjellum: No; it neither helps nor 
hurts. In Fortran, Write statements are 
helped out by the compiler. Pascal is 
like that; it makes certain assumptions. 
Think about the Writeln command: you 
give it an integer argument and an ob- 
ject to print out. That rigidity is frus- 
trating when you're trying to get a job 
done. What I want is to be able to de- 
fine, say, my own I/O functions at a 
level where they look like the built-in 
elements of the language. In C, I can. 
DDJ: Modula-2 is being touted as the 
language that Pascal should have been, 
but aside from its roots in Pascal and 
an impression that it takes some free- 
dom away from the programmer, I 
think most of us are a little vague 
about what Modula does and doesn’t 
do. Does it, for example, force the 
kinds of assumptions that Tony wants 
to avoid? 

Marini: In our version of Modula, we 


include the source code for some things 
that can be customized. Pointer man- 
agement, the loading of overlays, how 
you manage interrupts: you may want 
to customize these things. Also, we dis- 
tribute the sources for three or four li- 
brary modules that are in some way 
environmentally dependent: the key- 
board module, the display module, the 
RS-232 module. You can take the sup- 
plied modules as examples for design- 
ing your own. The flexibility is limited, 
but it’s there. But the thing that makes 
Modula the language of the 80s is that 
you have separate but not independent 
compilation. You have a check at com- 
pile time between modules, so if you 
import a procedure from another mod- 
ule, you have to write the definition for 
the exporting module. When you link, 
you are sure that all the modules are 
version consistent. You have strict con- 
sistency checks between modules. 
DDJ: You must admit, that sounds 
constraining. 

Marini: If you are the only programmer 
around, it can be a little annoying. The 
Modula approach certainly uses strong 
discipline. But as soon as you have three 
programmers working on a project, this 
is really invaluable. Modula can handle 
complex programming tasks. I think 
that this is critical. The only other lan- 
guage that does this sort of thing is Ada. 
For people who understand and like the 
advantages of compile-time checks and 
strong typing, Modula has the chief ad- 
vantages of Ada without the complexity 
of Ada or the unavailability of reason- 
able Ada compilers. 

DDJ: Can you quantify the distinction 
between simple and complex? 

Marini: I think the big difference is be- 
tween the one-programmer and the 
multi-programmer project. That is the 
first step. The second step probably 
happens at about four or five program- 
mers. From there up to a thousand pro- 
grammers probably doesn’t change 
very much. The big step occurs when 
you go above four or five program- 
mers. Then you get into the complexity 
of communication within a team of 
software developers that cannot be 
based on simply informal, verbal com- 
munication. You start needing, abso- 
lutely needing, written specifications. 
When you have four or five, one will 
leave within the year. The probability 
is that they will not all have the same 
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style, the same feelings, the same taste, 
the same choices. You need some sort 
of interface management. You may 
want a network, a common library, 
other little things that are not so little 
in the end because they consume a lot 
of effort. 

Zappacosta: And the DoD certainly 
knows quite a bit about that, because 
they specified Ada. 

Skjellum: Ada exists for people who 
are writing a program that has to run 
for 20 or 30 years and they have to be 
sure nothing will go wrong. They’re so 
worried that something might go 
wrong in their program that they have 
to force excessive rigidity in the design 
modules. So they invented Ada. Ada 
has very specific rules and a tremen- 
dous instruction set. I think of it as the 
Language of Ten Thousand Features. 
Zappacosta: In some sense you can 
say they went overboard; yes, maybe. 
But when you deal with the complexity 
of programming that they deal with, 
maybe you understand why they went 
overboard. I think that somehow Mod- 
ula took the right ideas from the right 
places. It’s not so complicated that you 
have to have the DoD pushing you to 


use it. But on the other hand, it’s appro- 
priate for complex development like the 
people who are reprogramming air traf- 


_ fic control software throughout the 


country. If you propose to these people 
to use C, they cannot. They have I don’t 
know how many people working on the 
project, and they are not sure that 
things would work together. So C is not 
an alternative. 

Skjellum: I don’t know much about 
Modula. And I'd like to keep it that 
way. But I must say that there are some 
nice features of Ada: more flexibility in 
the defining of data types, for example. 
DDJ: \t seems that we all agree that C 
allows the programmer the freedom to 
do things in unorthodox ways, that 
Modula and Ada force the program- 
mer into orthodoxy, and that the dif- 
ference of opinion is over whether and 
when the loss of freedom is justified. 
Zappacosta: The constraints of a lan- 
guage like Ada or Modula gain you 
something in functionality, but yes, the 
incremental gain costs something. 
There are two ways to go. One is to- 
ward simplicity—the pfs approach— 
everything is simple, manageable. 
With the other you get Ovation, 
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Framework, more complicated pieces 
of software. Unfortunately, for certain 
applications you haven’t a choice. If 
you want to control all the airplanes in 
the United States’ sky.... 

DDJ: You can’t use the pfs approach? 
Zappacosta: Probably not. Logitech is 
positioned in a strange place. We offer 
Modula-2 for the microcomputer, and 
in the microcomputer you have the 
choice you don’t have on larger ma- 
chines: simple or complicated. Certain- 
ly we are not going after the simple ap- 
plications. The fact that after the 8086 
version we came out with the VAX ver- 
sion shows that what we have in mind 
are serious software developers. 

DDJ: Are you saying that you have to 
have a VAX to be a serious software 
developer? 

Zappacosta: Well, even for applica- 
tions that eventually go on a PC, devel- 
opment on a mainframe is becoming 
more common. That’s why it’s harder 
to start a software company. You have 
to have a VAX; if not a VAX, you have 
to have a 68000-based machine. When 
I started programming micros in 1977, 
we had a CP/M machine that was the 
target machine and the development 
machine. Back then, the software 
couldn’t be too complicated; the hard- 
ware was most important. Now things 
are changing. 

DDJ: Software is getting more com- 
plex, requiring team programming, 
which in turn requires the overhead 
management that languages like Mod- 
ula, with consistency checking and 
strong typing and so on, offer? 
Zappacosta: Yes, but besides the 
number of programmers, the other pa- 
rameter to measure complexity of soft- 
ware is the need for this software to 
change and evolve. If you write soft- 
ware and never change it, if it is a great 
hack and nobody can put his hands in 
there, while it works you can accept 
that level of functionality and reliabil- 
ity and leave it there. But there are 
many applications that are alive. And 
then it’s different. If you have to put 
your hands into a system continuously, 
then you have this problem of mainte- 
nance. You have to understand the 
code of another guy, you have to port 
the system to a new machine, and 
that’s another discriminating factor. 
Skjellum: But you can do that with C. 
You can write machine-specific soft- 
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ware, but you can also write software 
that is portable. 

Heckel: Yes, do you know the concept 
of Jint in C? It’s referred to in the C 
manual. The /int program takes a C 
program and it finds all the things that 
Pascal tends to find and it gives you a 
list of them. Then if you really want a 
program that doesn’t have any of those 
kinds of things in it, you can fix the C 
program. 7 

DDJ: There really are two philosophies 
here, aren't there? 

Zappacosta: Well, you know, every 
time we present Modula we go the easy 
way. We say, if you plan to use Pascal, 
Modula is a better alternative. I think 
there is little discussion there: Modula 
is indeed the better language. But 
C.... Of course there is the large C 
market that we would like to tap, but 
we are careful. We are not eager to 
start a religious war. There are two dif- 
ferent kinds of people who defend C. 
One says, I don’t need another lan- 
guage. That’s either because their re- 
quirements are not that tough and they 
really don’t need another language, or 
because of ignorance. When Bill Gates 
told Bobo [ Daniel Borel] that he didn’t 
need another language, I think that 
that was ignorance. After all, consider- 
ing that he made his living writing BA- 
SIC, it’s not surprising that he sees al- 
ready too much for what he needs. But 
he has a large company, and now even 
Microsoft is getting behind schedule 
and not completing things. Maybe it is 
ignorance and he is making a mistake 
not to consider alternatives. But other 
people like C as a matter of personal 
taste; it’s an expression of personal 
freedom. This second group we take 
great care not to touch. 

Skjellum: At least compared to Pas- 
cal, C is a more general-purpose lan- 
guage; that’s why I like it. 

DDJ: Even granting, for the sake of ar- 
gument, that team programming is the 
wave of the future, still there are costs 
associated with every decision. What 
do you lose in moving from the ap- 
proach of the lone programmer who 
codes down on the bare metal to the 
more rigid, Modula or Ada team pro- 
gramming approach? | 

Barnaby: It seems like to do that 
you've got to pretty well spec out what 
you're doing first. So you can divide it 
into pieces and design interfaces 
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among the pieces. Which means you 
have to understand what you’re doing 
first. And that isn’t how you create 
products that are leaps in the state of 
the art. You get a good idea, you divide 
it up very roughly into pieces, and later 
find that they weren’t the right pieces 
and you redefine. I find that I have to 
be freewheeling. That’s my experience 
in doing programming. WordStar 
grew out of a video program, and as | 
worked on it I kept coming up with a 
better way to do it. 

DDJ: What one hears repeatedly is 
that many of the breakthrough soft- 
ware products are developed by pro- 
grammers for themselves, not as prod- 
ucts. Is that just folklore? 

Barnaby: No. Look at Unix and C. 
I’m trying to get back to that approach 
after not having produced anything 
significant since WordStar and after 
having noticed that I wasn’t approach- 
ing software designing in that way. I’m 
currently working with some very 
vague ideas that may lead to develop- 
ing some new techniques to do certain 
things. It’s creative exploration. It 
might or might not be incorporated 
into a product. 

DDJ: So, Rob, you’re going back to an 
earlier, freer approach to design. And 
clearly an individual approach. But 
Pierluigi and Giacomo, you seem to be 
saying that the times have outgrown 
that approach. 

Marini: Three examples: VisiCorp, Mi- 
crosoft with Windows, Digital Research 
with Concurrent DOS. In all three cases 
we have consistent out-of-schedule be- 
havior. These were basically all compa- 
nies that went from very small develop- 
ment groups to significantly larger 
development groups, and probably 
without project management. 
Zappacosta: The fact that the micro- 
computer industry has been so innova- 
tive, so creative, probably comes from 
the fact that the past was forgotten. 
The industry was new; the machines 
were simple and small. And simple 
tools and smart people produced good 
results. They proved that there is also a 
side to programming that is not repre- 
sented by the Mythical Man-month. 
But then the industry grew, the ma- 
chine grew in power, and now to reach 
the vast majority of people you have to 
use a different interface. The tradi- 
tional solutions used in the microcom- 


puter industry are no longer adequate. 
In the Macintosh you have 64K of 
highly optimized, hand-coded software 
just to move the mouse. Unfortunately 
this trend may make creativity more 
difficult to foster. 

Marini: Well, the market is getting 
more conservative. Interface compati- 
bility is becoming a little like the story 
of the awful IBM keyboard. 

DDJ: The awful IBM PC keyboard or 
the awful PCjr keyboard? IBM is 
backpedaling fast on the PCjr. 

Marini: Maybe this is still reversible, 
but certainly the user interfaces to 
things like Lotus 1-2-3 are not easily 
reversible. The point is that the market 
builds up inertia. 

DDJ: Lotus must be hoping that users 
can unlearn the 1—2-3 interface, or 
Symphony won't sell. But I guess 
you're saying that users now have ex- 
pectations, and those expectations con- 
strain what software designers can do 
with their creativity? 

Marini: Yes. I suspect that the creativ- 
ity is still there. Americans are so con- 
servative. In the U.S. you can’t change 
the color of the dollar. In Italy, we 
change the color of the money every 
three years. 
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described a machine language sub- 

routine called ZIP-CHK.ASM that 
partially validated zip codes and could 
be used by dBASE II using the LOAD 
FILE, SET CALL TO ADDRESS, and 
CALL VARIABLE commands. I now 
realize that older versions of dBASE II 
do not support the LOAD FILE com- 
mand that facilitates the loading of 
machine language modules from as- 
sembled HEX files. However, most 
early versions of dBASE II (pre v.2.4) 
will support the SET CALL TO AD- 
DRESS and CALL VARIABLE, even 
though these commands may be un- 
documented in the user’s manual. 

In this article I will explain these and 
other undocumented features of early 
versions of dBASE II. I have access only 
to versions 2.3 and 2.4, so you should 
check other versions thoroughly to de- 
termine whether the feature actually 
works as I will describe it. I would ap- 
preciate hearing about any results you 
may have on versions prior to v.2.3; I 
will catalog these findings and pass 
them on in future articles. 


| n my last article (DDJ, June 1984) I 


LOAD simulator in any high level lan- 
gauge using LOAD-HEX.CMD (listing, 
page 27) as a guideline. 


Pre-v.2.4 

Undocumented Commands 

These undocumented features appear 
in early versions of dBASE II. PEEK 
(aaaaa) will return the contents of a 
decimal address; POKE aaaaa,nnn will 
fill a decimal address with a decimal 
value; SET CALL TO aaaaa will set the 
call address to a decimal value; and 
CALL VARIABLE will call the address 
as defined in the SET CALL TO com- 
mand and pass the string VARIABLE, 
as described below. 

Upon entry of the subroutine, the 
HL register pair points to the location 
of the passed variable. The variable is 
stored in the format LENGTH BYTE 
followed by the actual string charac- 
ters. For example, if the variable ZIP 


Tepresents the string 97330, then upon 


CALLing a subroutine HL will point to 
a series of locations with the following 
data bytes in hex: 05, 39, 37, 33, 33, 
30. The HL pair points to the 05, indi- 





“Most early versions of dBASE II will support the SET 
CALL TO ADDRESS and CALL VARIABLE. I| will explain 
these and some other undocumented features of 
CBASE IL” 





In addition to the undocumented fea- 
tures, I have included a description of 
the HEX file format and a dBASE II 
command file that will simulate the 
LOAD FILE command if you can get 
the undocumented PEEK and POKE to 
work. After reviewing the format of the 
HEX file, you should be able to write a 





Gene Head, 2860 NW Skyline Dr., 
Corvallis, OR 97330. 


cating there are five bytes in this 
string; 39, 37, 33, 33, 30 are the hex 
bytes that represent the ASCII string 
97330. You can modify the string, but 
you must not increase the length of the 
variable. If the string becomes shorter, 
you should fill it with trailing blanks. 
TEST(variable) will test the variable 
and return the following: —6 if the val- 
ue is NUMERIC type, 0 if the variable 
does not exist, 1 if the variable is 
LOGICAL type, and nn (a number be- 
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tween | and 255) to indicate the length 
of a STRING type variable. 


Loading a HEX File 

The HEX file is simply an ASCII text 
file that holds information about what 
bytes go where. The LOAD.COM pro- 
gram usually is used with the HEX file 
to create an executable COM file. The 
format of any HEX file is shown in the 
figure at right. 

In a HEX file every line ends with a 
carriage return followed by a line feed, 
and every line begins with a colon. In 
line 1 (see figure) the two bytes follow- 
ing the colon (10) are two ASCII char- 
acters that represent the HEX value in 
the range 00 — FF (0 — 255 decimal). I 
will call this value the NUMBER OF 
BYTE-PAIRS value. We will get back 
to it later. 

The next four bytes (A470) are 
ASCII characters that represent a HEX 
value in the range of 0000 — FFFF 
(00000 — 65,535 decimal). I will call this 
value the FIRST LOAD ADDRESS. 

The next two bytes (00) are ASCII 
characters that are reserved. That 


means I don’t know what they are for. 


However, in every HEX file I have ever 
looked at these two bytes are always 00, 
and for this article I don’t think it is 
necessary to define them exactly. The 
same can be said for the last two bytes 
on each line (E9 in line 1). A checksum 
perhaps? 

The intervening bytes (02, 35, 62, 


dBASE II Listing 





. “1044700023562 135E22F0A401080021F 24471 FEO7E 

a OA4B000CACFAABACABBA40SC37DA4237EBBCA9633 
- (30 lines were deleted in this example) 

| 0672006 7563234373236385749353330353439 14 

09A68200575938323038333 1 OOE9 


:O000000000 ~ 





5 = ae 1 
= ine? 


<--line 33 
<—line34 
———-lpego 


Figure 


35, etc.) should be viewed as byte- 
pairs. Remember the NUMBER OF 
BYTE-PAIRS mentioned - earlier? 
Well, that is exactly the number of 
these byte-pairs we will load into con- 
secutive memory starting at the FIRST 
LOAD ADDRESS. Each of these byte- 
pairs are ASCII characters that repre- 
sent a HEX value in the range of 
00 —FF (0-255 decimal). Given the 
example of line 1, the address locations 
should be filled with the corresponding 
byte values as follows: 


A470 23 A478 08 
A471 56 A479 00 
A472 23 A47A 21 
A473 SE A47B F2 
A474 22 A47C A4 
A475 FO A47D 7E 
A476 A4 A47E FE 
A477 Ol A47F 07 


If your high-level language does not- 
support a LOAD function, you can simu- 
late one as long as you can read a textfile 
and PEEK at and POKE into memory. 
The command ‘file. LOADHEX.CMD 


(see the listing) was written for dBASE 
II. dBASE II only understands decimal 
numbers, and most of the code is for 
converting two ASCII bytes to a decimal 
number to be POKEd into memory. Un- 
derstanding the format of the HEX file 
should enable you to write your own 
HEX loader simulator in any language. 

Using LOAD-HEX.CMD as a guide, 
process line | of the HEX file. Extract 
the load address (position 4-7 in the 
string), the number of byte-pairs to 
POKE (position 2-3), and the individ- 
ual byte-pairs (beginning at position 
10). POKE each byte-pair then process 
the next line of the HEX file. Continue 
processing sequential lines until the 
NUMBER OF BYTE-PAIRS is equal to 
zero. The HEX file is now loaded into 
memory and ready to CALL as a ma- 
chine language subroutine. 
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¥ LQAD—-HEX. CMD 

x 

* File to simulate the LOAD feature of dBASE II 2.4 in 
¥ earlier versions that do not support this feature. 

x 

* Verify that PEEK and FORE cammands work before typing 
x in this file and watch the syntax especially PE ee Rl 
* 

x Fram: Head Quarters 

¥ 2860 NW Skyline Drive 

¥ Corvallis, Oregon 97350 

% (503) > 738-0279 

x 

x 

¥ 

¥ 

x 
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(Continued on next page) 
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dBASE Il Lis ting (Listing Continued, text begins on page 26) 


SET TALE OFF 
“>. First. time rnitialization 
The following need be done only once 


First CREATE a file named HEXDATA.DBF with GNE 
field NAMED DATA af CHARACTER type, forty-four 
(44) characters in length. 


x 
x 
x 
x 
x 
¥ 
¥ 
x 
* APPEND FROM the SUBROUTINE HEX file using the SDF option. 

¥ If you were going ta use the Subroutine ZIP—-CHE.HEX file then: 
# 

x 

¥ 

x 

2 

x 

x 

x 


»~USE HEXLOAD 
«APPEND FROM ZIP-CHE.HEX SDF 


<--- End of first time initialization 


Each line of HEX data will be in the field named DATA 
USE HEXDATA 


x POSITION IN THIS STRING IS THE DECIMAL VALUE OF THE HEX CHARACTER 
x (SEARCHING FOR @ *6* RETURNS 0) 
DTORE *1i22454789ARCDEF" TO HEX 


* —--> COMPUTE THE BASE LOCATION OF THIS LOAD (THIS FUNCTION IS OPTIONAL) 
STORE STR(((9(#(DATA,4,1),HEXI4*16 + D($(DATA,S,1),HEX)) & 254) 4; 
(90S (DATA, 4,1) ,HEX) *16 + 2($(DATA,7,1),HEX)),5) TO CALL:ADR 
SET CALL TO &CALL:ADR 
* <--- END OF LOCATION OFTION 


DO WHILE $(DATA,2,2) <> 700° 
* Compute how many bytes to FPOKE from this line of the HEX file 
STORE (9($(DATA,2,1),HEX) *iS + 2($ (DATA, 3,1) ,HEX)) TO COUNT 


* Get the starting FOKE address 
STORE ((2¢$ (DATA, 4,1),HEX)*16 + »($ (DATA, 5,1) ,HEX)) 2G); 
+ (a($(DATA, 4,1} ,HEX) £146 + 2($ (DATA, 7,1),HEX)) TO ADDRESS 


* We PORE the last BYTE-PAIR on the line of the HEX file 
¥ and work our way back ta the first BYTE-PAIR on the line. 
DQ WHILE COUNT 
2 TORE STR CADDRESS+COUNT—1,5) +7, *+STR(O($ (DATA, COUNTK2+8, 1),; 
HEX) ¥15+0 (0% (DATA, COUNT*2+9,1),HEX),3) TO BYTE 
PORE SE YTE 
STORE COUNT -1 TO COUNT 
=NDDO WHILE COUNT 


® GET NEXT LINE OF HEX DATA 
oe IP 
ENDDO WHILE $(DATA,2,2) <> 7007 
LSE 


End Listing 
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P. 0. Box 280298 Dallas, Texas 75228 
(214) 271-5546 ll) — oo 


-B. G. MICRO 


Big Computer Mfg. Makes $900,000 Goof! 


COMPUTER/ DISK DRIVE 
SWITCHING POWER SUPPLY 


ORIGINALLY DESIGNED TO RUN A Z-80 
BASED SINGLE BOARD COMPUTER 
WITH TWO 5-1/4 IN. DISK DRIVES AND 
CRT MONITOR. 


BRAND NEW: UNUSED! $9750. 3 ror 995 


Th Se ADD $1.50 PER UNIT FOR UPS 




















SPECS: + 5VDC 5 AMPS MAX 
#1 + 12 VDC 2.8 AMPS MAX 
#2 + 12 VDC 2.0 AMPS MAX 
-12 VDC .5 AMPS MAX 


INPUT: 115 or 230 VAC 60Hz 


SMALL SIZE: 6-1/8 x 7-3/8 In. 
HIGH EFFICIENCY SWITCHER MFG. 
BY CAL. DC IN USA! 


The poor Purchasing Agent bought about 10 times as many of these DC 
switchers as his company would ever use! We were told that even in 
10,000 piece lots they paid over $72 each for these multi-output 
switchers. When this large computer manufacturer discontinued their 
Z-80 Computer, guess what the Big Boss found in the back warehouse; 
several truckloads of unused $72.00 power supplies. Fortunately we 
heard about the deal and made the surplus buy of the decade. Even 
though we bought a huge quantity, please order early to avoid 
disappointment. Please do not confuse these high quality American 
made power supplies with the cheap import units sold by others. 





We cannot ship 






TERMS: Orders over $50 add 85¢ insurance. No COD. Tex. Res. Add 6% Sales Tax. Subject to prior sale. Foreign orders: US funds only. 
to Mexico. Foreign countries other than Canada add $6 per board shipping. 





Circle no. 8 on reader service card. 
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Simple Calculations 
With Complex Numbers 





by David D. Clark 


30 


his article will introduce you to 
de the complex numbers and some 

of the methods used to perform 
calculations with them. Despite the ti- 
tle, the ideas involved are quite simple. 
First, however, a little background on 
the rational, irrational, and real 
numbers. 

Most people are familiar with the ra- 
tional numbers, whether they know it or 
not. Rational numbers are the numbers 
we use in our everyday lives, like the 25 
cents we pay for a newspaper or the | /2 
teaspoon of vanilla extract required for 
a certain recipe. Rational numbers are 
those numbers that we can express as 
the ratio of two integers, say a/b, where 
the denominator is not equal to zero. 
The Greek Pythagorean school of 
mathematicians discovered another 
fundamental type of number. To their 
dismay, they found that some quanti- 
ties cannot be expressed as the ratio of 


Complex Numbers 

The real numbers are themselves a 
subset of an infinitely larger set of 
numbers called complex numbers. To 
understand what complex numbers 
are, consider the following equation: 


Se xe Se (1) 


Equation (1) looks innocuous enough. 
But, when we apply the quadratic 
equation in an attempt to solve the 
equation for the value of x, we obtain: 


Ce ai fp (2) 


What is \/—1? Good question. Clear- 
ly, no real number will work since no 
real number squared equals —1. 
Mathematicians have created a special 
number, usually denoted i or j, to sym- 
bolize \/—1. Thus Equation (2) 
represents: 





“The notation a + biis a rather unfortunate histori- 
cal accident. It is better to think of a complex 
number as an ordered pair.” 





two integers. The first such number 
they found was \/2 when they tried to 
find the number representing the length 
of the diagonal through a unit square (a 
square with sides of length one). They 
showed that no such rational number 
exists. Soon other examples of these ir- 
rational numbers were found. Curious- 
ly, +, one of the most intensively studied 
of nature’s fundamental constants, was 
not shown to be irrational until the 
eighteenth century. The combined ra- 
tional and irrational numbers make up 
the set of real numbers. 





David D. Clark, 246 S. Fraser St. #2, 
State College, PA 16801. 


x=1/2+1/2\/3i (3) 
x=1/2—1/2\/3i 


Such numbers are called complex 
numbers and consist of a real part (1/2 
in Equation (3) ) and an imaginary 
part (1/2\/3i and —1/2\/3 i). They 
are commonly represented as: 


x=atbi (4) 


where a and b are real numbers. a is 
called the real part and bi is called the 
imaginary part. The real numbers are 
all of those complex numbers where 
6b = 0. Complex numbers where a = 0 
are called pure imaginaries. Complex 
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numbers are equal if and only if both 
the real parts and the imaginary parts 
are equal. Complex numbers that dif- 
fer only in the sign of their imaginary 
parts are called conjugates. An inter- 
esting and useful property of conju- 
gates is that, when two conjugates are 
multiplied, the result is always real. 
The notation of Equation (4) is a 
rather unfortunate historical accident. 
It tends to confuse people on their first 
exposure to complex numbers. We can 
never actually add the real and imagi- 
nary parts as the plus sign suggests. It 
is better to think of a complex number 
simply as an ordered pair (a, bi). This 
concept immediately suggests a geo- 
metric representation. A plane defined 
by a real axis and an orthogonal imagi- 
nary axis is called an Argand plane af- 
ter the Swiss-French mathematician 
Jean Robert Argand (1768 — 1822). 
The geometric interpretation of com- 
plex numbers is also attributed inde- 
pendently to the Norwegian surveyor 
Caspar Wessel (1745 — 1818). Schol- 
ars have suggested that complex num- 
bers be renamed “normal” numbers 


since, in the geometric representation - 


of such quantities, the imaginary axis 
is normal to the real axis. Figure | (be- 
low) shows how the number 3 + 4/ 
would be represented on such a plane. 
Because it is often convenient to think 
of complex numbers simply as points 
on a complex plane, we will use the 
terms number and point interchange- 
ably in the following discussion. 


s 
> 
Oe 
= 
e —m 
oS 
& 


a=3 


— g Real Axis 
. Figure 1. 


- Geometric representation of the complex number 
34+ 4iin cov orguiar coordinates on the Argand 





plane. 
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We can also represent complex 
numbers with polar coordinates. In po- 
lar coordinates, a point is defined in 
reference to a fixed line and a point on 
that line, called the origin or pole. In 
this system, complex numbers are 
written as: 


x = r(cosé + isiné) = r Cisé (5) 


where r, called the radius or modulus, 
represents the distance of the point 
from the origin, and 0, called the am- 
plitude, represents an angle of rotation 
from the reference line. Figure 2 (be- 
low) demonstrates how to graph the 
number 5 Cis 0.9273. The two forms 
may be interconverted easily. The po- 
lar coordinates for x = a + bi are: 


r= \/a+P (6) 
@ = tan '(a/b) 


and the rectangular coordinates for 
r = Cisé are: 


lal = rcosé (7) 
lb| = rsiné 


Since we calculate only the absolute 
values of a and b when converting from 
polar form, we must determine the ac- 
tual signs of the two quantities from 
the quadrant in which the point falls. 
The quadrants are numbered in in- 
creasing order starting with quadrant I 
as the upper righthand part of the 
graph and proceeding counterclock- 


fear oe 





wise. The table (above) shows how the 
signs of a and bare related to the quad- 
rant of the plane in which the point 
appears. 

So, after a little fiddling on a calcu- 
lator, we see that: 


3 + 41 = 5 Cis 0.9273 (8) 


and that Figures 1 and 2 represent the 
same number in the two coordinate 
systems. 


Complex Arithmetic 

We can do arithmetic with complex 
numbers just as we do with the more 
familiar real numbers. The four arith- 
metic operations of addition, subtrac- 
tion, multiplication, and division are 
very simple with complex numbers. As 
shown below, for multiplication and 
division we make use of the fact that 


p= — 







Geometric representation o T le: 
5 Cis? graphed in polar coordinates, 
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Addition 

fa: -bt) {e-F dd (9) 
=(a+c)+ (b+ ad) 

Subtraction 

(a + bi) — (c + di) (10) 
=(ag—c)+(b-— d)i 

Multiplication 

(a+ bi) X (c+ di) (TL) 


=a(c + di) + b(c + di)i 
= (ac — bd) + (be + ad)i 


Division 


atbi —(a+ bi) Xtc — di) (12) 
c+ di (c + di) X (c — di) 


— ac + bd + be = ad 
et iF eae a 


Complex Functions 

The calculation of complex functions is 
not much more difficult than doing 
complex arithmetic. One of the sim- 
plest complex functions is raising a 
complex number to an integer power. 
Polar notation makes the calculation 
easy: 

(r Cis#)" = r° Cis n6 (13) 
To raise e, the base of the natural loga- 
rithms, to a complex power: 


where, by Euler’s formula: 
e>' = cosh + i sinb = Cis b (15) 


We can confirm the veracity of this 
formula by expanding the exponential 
in a Taylor series. 

Taking the natural logarithm of a 
complex number is also fairly straight- 
forward. If @ is restricted such that 
—n7 <0 a7and x = r Cisé: 
In(x) = In(r) + i6 (16) 
To raise a complex number to a com- 
plex power, we form an analogy to the 
operation with real numbers. For real 


numbers: 
xy = ey |n(x) 
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If x and y are complex: 


(18) 


Equation (15) suggests a way to cal- 
culate the sine and cosine of complex 
numbers. If x is complex: 
ex! = cosx + i sinx (19) 
e Xi = cosx — isinx (20) 


Adding Equations (19) and (20) and 
rearranging, we arrive at: 


cosx = e+ ent 
2 


(21) 
Subtracting Equation (20) from Equa- 
tion (19) and rearranging yields: 


Sinx = 22 ae 
2i 


(22) 


We can now perform a reasonable 
number of operations with complex 
numbers. We can build up additional 
simple functions by proper sequences 
of the operations described. 


Applications 
So now that we can do all this wonder- 
ful math with complex numbers, what 
good are they? You might not think so, 
but complex numbers have a variety of 
uses. As implied near the beginning of 
this article, complex numbers have a 
fundamental importance in the field of 
mathematics because the roots of poly- 
nomial equations often contain imagi- 
nary terms. Also, almost all wave phe- 
nomena are described with the aid of 
complex numbers, from signal analysis 
in electronic circuits to the wave func- 
tions used by chemists and physicists 
to describe the nature of matter at the 
atomic and molecular level. 

Applications familiar to most people 
interested in electronics include the de- 
sign and description of filters and reac- 
tive and resonant circuits. Phasor dia- 
grams represent the real, resistive 
parts of the circuit, while the imagi- 
nary axis shows the imaginary or reac- 
tive part. Such a diagram is very simi- 
lar to the Argand plane. 

When Ohm’s law is generalized to 
AC circuits, it has the conventional 
form, familiar from DC circuit 


(17) | analysis: 


l=V/Z 


where I is the current, V is the voltage, 
and Z is the impedance. However, the 
impedance varies depending upon the 
type of device (resistor, capacitor, or 
inductor) and the frequency of the sig- 
nal applied to the circuit: 


resistor Zr=R 
capacitor Zc = —i/wC 
inductor Z, = iwl 


where w = 2rf and f is the frequency 
of the applied signal in cycles per sec- 
ond. R is the resistance in ohms, C is 
the capacitance in farads, and L is the 
inductance in henrys. 

In my own work, I use complex 
numbers almost daily because of their 
presence in the Fourier transform. The 
Fourier transform is most commonly 
used to convert data in the form of in- 
tensity vs. time into frequency vs. time 
data. I use an instrument called an 
NMR (Nuclear Magnetic Resonance) 
spectrometer. This instrument detects 
the “flipping” of nuclear spin states. 
This type of experiment originally in- 
volved subjecting a sample to a con- 
stant radio frequency field and a vary- 
ing strong magnetic field or a constant 
magnetic field and varying radio fre- | 
quency. Varying one of these fields 
took a lot of time. Modern instruments 
use the constant magnetic field of a su- 
perconducting magnet and a brief, in- 
tense pulse of radio energy. Since a 
square wave, like the applied pulse, can 
be built up from a series of sine waves 
of different frequencies, the pulse ex- 
periment is equivalent to hitting the 
sample with all of those frequencies at 
once. The FID (Free Induction Decay) 
is recorded as a function of time after 
the pulse. This data is then trans- 
formed into the frequency domain. 
The peaks in the transformed signal 
represent the frequencies at which nu- 
clear spins flipped. 

Fourier transforms are used in all 
types of signal analysis applications, 
such as digital filtering and spectral 
analysis. The DFT (Discrete Fourier 
Transform) of x(n) is defined as: 


Real 

X(k) = 2 x(n) exp(i2mnk/N ) 
n=0 ; 

k= OS eo WN eat 
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The inverse DFT is: 


Le eed 
x(n) = 1/N & X(k) exp(i2ank/N); 
k=0 


CAA SNe 


We can also use the Fourier trans- 
form to analyze an interesting signal 
based on a complex function, the fre- 
quency-modulated wave related to FM 
radio transmission: 


x(k) = exp[i(ak + bcos ck)] 


Analysis of this type of signal reveals a 
sharp central peak and a number of 
sidebands whose position and intensi- 
ties are influenced by the values of the 
constants a, b, and c. 

Complex numbers are also used ex- 
tensively in the study of electromag- 
netic phenomena. Calculation of radi- 
ated power, radiation pressure, and 
design of waveguides are good exam- 
ples of this use. 


Computer Implementation 

Given all that you can do with complex 
numbers, the next step is getting your 
computer to help. It’s easy to do in For- 
tran since COMPLEX is one of the fun- 
damental data types available. In addi- 
tion, the Fortran library has a large 
number of functions that operate with 
COMPLEX variables. However, I have 
an intense dislike of Fortran, and the 
Fortran compilers I have available for 
my microcomputer do not support the 
COMPLEX data type. Since I do like 
Pascal, I wrote the routines I wanted in 
that language. 

Listing One (page 36) is a UCSD 
Pascal unit called Complex Arithmetic 
that implements the operations dis- 
cussed above. First, a public data type 
called Complex is declared. Complex 
numbers will be represented by this 
data type in programs that make use of 
the unit. It consists of a record contain- 
ing two fields. The Re field represents 
the real coefficient, while the Im field 
represents the imaginary coefficient. 
All complex arguments and results are 
in rectangular coordinates, although 
some of the calculations use polar 
coordinates. 

This approach has some disadvan- 
tages. The primary disadvantage is that 
you must build up equations from 
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successive procedure and function calls. 
This is because Pascal does not allow 
functions to return composite values; it 
is not possible to write routines that re- 
turn results of data type Complex. It 
would also be nice if you could overload 
the arithmetic operators to use Com- 
plex data types. You can do it in Ada, 
but that’s another story. 

The four arithmetic operations are 
straightforward implementations of 
Equations (9) through (12). The Polar 
routine, which converts rectangular 
coordinates to polar coordinates, re- 
quires some explanation. Because of 
the way the p-System handles certain 
exceptional numerical conditions, a 
few precautions had to be taken when 
coding the routine. The first two condi- 
tionals are present to prevent under- 
flow when squaring the real and imagi- 
nary parts of the argument. Squaring 
numbers very close to zero can produce 
a number too close to zero for the com- 
puter to represent. For example, squar- 
ing 10-29 yields 10 49, which is too 
small for many systems to handle. This 
is called underflow. When it happens 
on my machine, a runtime error occurs 
and the program is aborted. The two 
conditional statements detect such a 
situation before the damage is done 
and prevent an error by setting the co- 
efficient to zero (since Arg is passed by 
value, the reassignment only has effect 
while within procedure Polar). Squar- 
ing zero does not cause any problems. 

The calculation of the amplitude is a 
little trickier. While the ATan function 
is very robust (you can’t hurt it, no mat- 
ter what argument you hit it with), divi- 
sion is not quite so resilient. Division 
can cause problems in a couple of ways. 
First, division by zero is certain death. 
Second, dividing a very large number 
by a very small number can cause over- 
flow. For example, 102°/10—-29 = 104°, 
There is a way to detect such a situation 
before it happens. Since: 


abs(b)/abs(a) = elin(abs(b)) — In(abs(a))) 


we can check the relative magnitudes of 
a and b before doing the actual division. 
If an infinite quantity (to the computer) 
is about to be calculated, signs are 
checked and an appropriate value is as- 
signed directly. (The ATan function 
approaches 7/2 as its argument in- 
creases without bound in the positive di- 


rection. It tends to —72/2 as the argu- 
ment decreases toward negative 
infinity.) All this checking makes Polar 
an expensive procedure in terms of exe- 
cution time. If you don’t need all of 
these safeguards, you can reduce the 
procedure to the two statements: 


Modulus := 
Sqrt(Sqr(Arg.Re) + Sar 
(Arg.Im)); 


Amplitude := 
ATan(Arg.Im/Arg.Re); 


(A note to p-System users: Some early 
versions of the interpreter have Ln 
functions that do not always return a 
result of the correct sign. ) 

The CToPower, CExp, and CLn 
procedures are almost straight translit- 
erations of Equations (13) through 
(16). The procedures CToC, CSin, and 
CCos are examples of how equations 
involving complex numbers can be 
built up one operation at a time. Other 
functions, such as taking complex pow- 
ers of real numbers, can be built up by 
calling these procedures with appropri- 
ate arguments. For example, to raise 
5.3 to the 7.0 + 3.07 power, use CToC 
with Arg] = 5.3 + 0.0i and Arg2 = 
AE Be: 

Listing Two (page 42) is a typical 
application for complex numbers, a 
test program for FFT (Fast Fourier 
Transform) functions. The program 
generates a function with an analyti- 
cally known DFT, transforms it, com- 
pares the calculated transform with 
the analytic transform, then reverses 
the process. The calculated inverse 
transform is then compared with the 
original function. The function gener- 
ated is: 


x(n) = On=0,1,...,N—1 
and its DFT is: 


ACK) =O OS OW") 
R= Ole eal 


where W = exp(—i27/N) and Q is the 
complex constant 0.9 + 0.37. In the 
program, NV = 64 so the transform is 
performed on 64 complex points. 

The procedure that performs the ac- 
tual calculation of the FFT is “‘includ- 
ed”’ from the file CURFFT.TEXT, 
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shown in Listing Three (page 46). 
That way you can test several different 
FFT routines using the same main pro- 
gram. Just create your new Fourea 
procedure and stuff it in a file called 
CURFFT.TEXT. As stated in the list- 
ing, this is not a particularly efficient 
FFT procedure, but it has the virtue of 
simplicity (for an FFT calculation any- 
way) and illustrates a “real life” appli- 
cation of complex numbers. 

The output at the end of Listing 
Three shows the results of running the 


FFT testing program. A large differ- 


ence between the calculated trans- 
forms and the analytically known val- 
ues for the transforms indicates that 
there is probably an error in the 
Fourea procedure being tested. 


Summary 

Complex numbers have been intro- 
duced in relation to the more familiar 
rational and real number systems. 
Complex numbers consist of a real part 
and an imaginary part. The imaginary 
part is so named because one of its fac- 
tors is \/—1, more commonly denoted 
simply as i. A geometrical interpreta- 
tion of such numbers has been de- 
scribed in which complex numbers rep- 
resent points on a complex plane, 
called an Argand plane. The points can 
be plotted in rectangular or polar coor- 
dinates, and the two coordinate sys- 
tems can be easily interconverted. 

Complex numbers have an associat- 
ed algebra, just like the rational and 
real numbers. The operations of addi- 
tion, subtraction, multiplication, and 
division, as well as the calculation of 
some common functions of complex 
numbers, have been explained. A 
UCSD Pascal unit called Complex 
Arithmetic, which implements these 
calculations in a specific programming 
language, has been described, as well 
as an example program to calculate 
fast Fourier transforms using complex 
arithmetic. 

In addition to signal analysis and Fou- 
rier analysis, complex numbers are used 
in the mathematics of electronics (e.g., 
filters and reactive and resonant cir- 
cuits). Phasor diagrams consist of a real 
part, the resistive part, and an imaginary 
part, the reactive part. The wave func- 
tions used by chemists and physicists in 
the study of quantum mechanics also 
make use of the properties of complex 
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numbers. And now, so can you. 
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Of course, 
POWER! saves 
your Bad Disk. 


NOW! WINDOWS FOR IBM! 


penn nnn, 
ons 






It also does 
54 other things to 
keep your disk in line. 


EVERYTHING YOU ALWAYS WANTED 
TO DO, BUT WERE AFRAID TO TRY 


Unlike some utility programs that are a headache 
touse, POWER! is engineered to spoil you with 55 
features, simple and uniform commands, and utter 
simplicity of use. POWER! automatically alpha- 
betizes and numbers your files. You select by the 
number and never type file names again. Need to 
[COPY], [RENAME], [ERASE], or [RUN] programs? Just 
type in their menu number! POWER! also locks 
out your disk’s bad sectors [TEST] without destroy- 
ing files—a critical difference from other utilities 
that search and destroy, without informing you 
what they’ve done, leaving you to wonder why 
your programs won't run. (And POWER! still has 
50 commands to go!) 


POWER! ONE PROGRAM DOES IT ALL! 


You may own a few utility programs for your com- 
puter housekeeping, each with its own commands 
to memorize. POWER! has all the programs rolled 
into one 16K integrated package, so you do things 
you've never tried before—every day. Save sen- 
sitive data from prying eyes with [PASS] word pro- 
tect, move a block of memory [MOVE], look for data 
[SEARCH] or compare files [CHECK]. POWER! also 
makes easy work of patching, [DISPLAY/SUBSTITUTE], 
customizing software [LOAD/SAVE]. Among the 
other commands are [SIZE], [STAT] [LOG], [DUMP], 
[TYPE], [JUMP], [FILL], [SET], and the CP/M version 
lets you restore erased files—even when you don’t 
remember the filename—at a flick of the POWER! 
[RECLAIM] command. (Still 31 commands to go!) 


POWER! NOW FOR IBM’s PC-DOS 
AS WELL AS CP/M 


We first developed POWER! for CP/M two years 
ago, and a stack of testimonials from FORD to 
XEROX testify to its excellence. For IBM-PC™ 
users, special features like managing sub-direc- 
tories, [CHANGE], and a separate creation of up to 
so he on-screen [WINDOWS] have been 
added. 


MONEY-BACK GUARANTEE AND 
A 10 DAY TRIAL 


POWER! has the Seal of Approval from the Pro- 
fessional Software Programmers Association, and 
you, too, must be happy with POWER!-or your 
money back! For only $169 you can now really be in 
control of your computer. Call Computing! at (415) 
567-1634, or your local dealer. For IBM-PC or any 
CP/M machine. Please specify disk format. 


The company that earns its exclamation point. 


COMPUTING! — 


2519 Greenwich, San Francisco, CA 94123 ae 


TO ORDER CALL 800 TOLLFREE 


800-428-7825 Extension 96H 
In CA: 800-428-7824 Extension 96H 


IBM and 1BM-PC are registered trademarks of 
International Business Machines Corporation. 
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Calculations (Text begins on page 30) 
Listing One 


{xL PRINTER: } 
UNIT ComplexArithmetic; 
{ data type and procedures for performing complex arithmetic } 


INTERFACE 


TYPE Complex = RECORD 
Re : Real; 
Im : Real 
END { of RECORD }; 


PROCEDURE CAdd(VAR Result: Complex; Argl, Arg2: Complex); 
{ adds "Argl" and "Arg2" and returns the sum in "Result" } 


PROCEDURE CSub(VAR Result: Complex; Argl, Arg2: Complex); 
{ subtracts "Arg2" from "Argl" and returns the difference in "Result" } 


PROCEDURE CMult(VAR Result: Complex; Argl, Arg2: Complex); 
{ multiplies "Argl" and "Arg2" and returns the product in "Result" } 


PROCEDURE CDiv(VAR Result: Complex; Argl, Arg2: Complex); 
{ divide "Argl" by "Arg2" and returns the quotient in "Result" } 


PROCEDURE Polar(Arg: Complex; VAR Modulus, Amplitude: Real); 
{ converts a Complex number "Arg" in rectangular form to Polar form } 


PROCEDURE CToPower(VAR Result: Complex; Arg: Complex; Power: Integer); 
{ raises "Arg" to the positive integral "Power" and returns the 
answer in "Result" } 


PROCEDURE CExp(VAR Result: Complex; Arg: Complex); 
{ raises e to the "Arg" and returns the answer in "Result" } 


PROCEDURE CLn(VAR Result: Complex; Arg: Complex); 
{ takes the natural logarithm of "Arg" and returns the answer in 
"Result" } 


PROCEDURE CToC(VAR Result: Complex; Argl, Arg2: Complex); 
{ raise Complex number "Argl" to Complex Power "Arg2" } 


PROCEDURE CSin(VAR Result: Complex; Arg: Complex); 
{ takes the sine of "Arg" and returns it in "Result } 


PROCEDURE CCos(VAR Result: Complex; Arg: Complex); 
{ takes the cosine of "Arg" and returns it in "Result } 


IMPLEMENTATION 


CONST LN_MAX REAL = 87.49823353; { 1n(1.0e38) } 
PI_OVER_2 Le 5707963273 4 -pif2.0° } 


CLOSEST 1E-19; { sqrt(1.0e-38 } 
PROCEDURE CAdd{VAR Result: Complex; Argl, Arg2: Complex}; 


BEGIN { CAdd } 
Result.Re := Argl.Re + Arg2.Re; 
(Continued on page 38) 
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Release 3.0 


We think Rel. 3.0 of the Eco-C Compiler is the 
fastest full C available for the Z80 environment. 
Consider the evidence: 


Benchmarks* 
(Seconds) 


Benchmark 


Q/C 


*Times courtesy of Dr. David Clark 


CNC - Could Not Compile 


N/A - Does not support floating point 


We've also expanded the library (120 func- 
tions), the user's manual and compile-time 
switches (including multiple non-fatal error 
messages). The price is still $250.00 and 
includes Microsoft's MACRO 80. As an option, 
we will supply Eco-C with the SLR Systems 
assembler - linker - librarian for $295.00 (up to 
six times faster than MACRO 80). 


For adaitional information, 


call or write: » 


EG (317) 255-6476 


6413 N. College Ave. @ Indianapolis, Indiana 46220 


Circle no. 24 on reader service card. 


The Cost Efficient 
EPROM 
Programmer 


$995.00 


COMPLETE 


Dealer inquiries welcome. 


DISPLAY: FUNCTIONS: 
e Bright 1” high display system e Fast and standard programming 
e Progress indicated during algorithms 

programming e Single key commands 
e Error messages e Search finds data strings up 
to 256 bytes long 
Electronic signatures for easy 
data error |.D. 
“FF” skipping for max program- 
ming speed 
User sets memory boundaries 
15 commands including move, 
e RS-232C for data transfer edit, fill, search, etc. functions 
e 110-19.2K baud Extended mode reads EPROM 
e X-on X-off control of serial data sets 


ALSO AVAILABLE FROM SCC: 
The Cost Efficient Erasing Units 


KEYBOARD: 

e Full travel entry keys 

e Auto repeat 

e |\luminated function indicators 


INTERFACE: 


& 


Se 
i ta 


Shown in test mode. 


GENERAL: 


Stand alone operation, external 
terminal not needed for full 
command set 


e Total support 


28 pin sockets 

Faulty EPROMS indicated at 
socket 

Programs 1 to 128K devices 
Built in diagnostics 

No calibration required 

No personality modules to buy 
Programs new CMOS EPROMS 
Printer interface option 
Complete with 128K buffer 


FIVE TIMES THE CAPACITY OF OTHER UNITS, FOR LESS THAN $200! 
Three Models Available: 


FEATURES INCLUDE: 


Affordable and economical 
Portable, easy to use 
EPROMS 

Micro computer 


Unique wave design 
Efficient bulb design 
All-steel, heavy duty design 
Quick erasure time 
Efficient Industrial design 

Reliable Production environment ready 
Safe Timer included 


QUICK DELIVERY ON ALL PRODUCTS! 


EU-156...over 150 chips 


$195.00 


EU-312...over 300 chips 


$359.95 


EU-1050...over 1000 chips 
(EPROM or Micro Computer) 


CALL! 


FOR FURTHER INFORMATION ON SCC8 COST EFFICIENT PROGRAMMERS AND ERASING UNITS CALL 


SOUTHERN COMPUTER CORPORATION 


3720 N. Stratford Rd., Atlanta, GA 30342, 404-231-5363 
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33 KFLOPS 


| Use your IBM PC (or compatible) to mul- 


tiply two 128 by 128 matrices at the rate 
of 33 thousand floating-point operations 
per second (kflops)! Calculate the 
mean and standard deviation of 16,384 
points of single precision (4 byte) float- 
ing-point data in 1.4 seconds (35 
kflops). Perform the fast Fourier trans- 
form on 1024 points of real data in 6.5 
seconds. Near PDP-11/70 performance 
when running the compute intensive 
Owen benchmark. 


WL FORTH-79 


FORTH-79 by WL Computer Systems is 
a powerful and comprehensive pro- 
gramming system which runs on the 
IBM PC (and some compatibles). If your 
computer has the 8087 numeric data 
processing chip (NDP) installed, then 
this version of FORTH-79 will unleash 
the awesome floating-point processing 
power which is present in your system. 
lf you haven't gotten around to installing 
the 8087 NDP coprocessor in your com- 
puter, you can still use WL FORTH to 
write applications using standard 
FORTH-79. , 


System includes editor, memory dump, 
decompiler, nondestructive stack print- 
out, screen printer and screen copy uti- 
lities. FORTH sources for these utilities 
are included. 


Unlike most other products, the com- 
plete source is available at a very 
affordable price. 


Package 1 includes FORTH-79 ver- 
sions with and without 8087 support. 
Included are screen utilities, 8087 and 
8088 FORTH assemblers. $100 


Package 2 includes package 1 plus the 
assembly language source for the WL 
FORTH-79 nucleus. $150 


Package 3.includes package 2 plus the 
WL FORTH-79 source screens used to 
add the 8087 features to the vocab- 
ulary. $200 


Starting FORTH book. $22 


WL Computer Systems 
1910 Newman Road 
W. Lafayette, IN 47906 
(317) 743-8484 


Visa and Master Card accepted. 


IBM is a trademark of International Business Ma- 
chines 
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Calculations (Listing Continued, text begins on page 30) 
Listing One 


Result.Im := Argl.Im + Arg2.Im 
END { of CAdd }; 


PROCEDURE CSub{VAR Result: Complex; Argl, Arg2: Complex}; 


BEGIN { CSub } 
Result.Re := Argl.Re - Arg2.Re; 
Result. Im := Argl.Im - Arg2.Im 
END { of CSub }; 


PROCEDURE CMult {VAR Result: Complex; Argl, Arg2: Complex}; 


BEGIN { CMult } 
Result.Re := Argl.Re*Arg2.Re - Argl. Im*Arg2. In; 
Result.Im := Argl. Im*Arg2.Re + Argl.Re*Arg2. Im 
END { of CMult }; 


PROCEDURE CDiv{VAR Result: Complex; Argl, Arg2: Complex}; 
VAR Denom: Real; 


BEGIN { CDiv } 
Denom := Sqr(Arg2.Re) + Sqr(Arg2. Im); 
Result.Re := (Argl.Re*Arg2.Re + Argl. Im*Arg2. Im) /Denom; 
Result.Im := (Argl. Im*Arg2.Re - Argl.Re*Arg2. Im)/Denom 
END { of CDiv }; 


PROCEDURE Polar{Arg: Complex; VAR Modulus, Amplitude: Real}; 


BEGIN { Polar fF; 
WITH Arg DO BEGIN 
IF Abs(Re) < CLOSEST THEN 


Re := 0.0; 
IF Abs(Im) < CLOSEST THEN 
Im := 0.0; 


Modulus := Sqrt(Sqr(Re) + Sqr(Im)); 
IF Im = 0.0 THEN 
Amplitude := 0.0 
ELSE IF Re = 0.0 THEN 
IF Im > 0.0 THEN 
Amplitude := PI_OVER_ 2 
ELSE 
Amplitude := -PI OVER 2 


ELSE IF (Ln(Abs(Im)) - Ln(Abs(Re)) > LN MAX REAL) THEN 
IF Re > 0.0 THEN 


IF Im > 0.0 THEN 
Amplitude := PI_OVER 2 
ELSE 
Amplitude := -PI_OVER 2 


ELSE 
IF Im > 0.0 THEN 
Amplitude := -PI_OVER_2 
ELSE 
Amplitude := PI_OVER 2 
ELSE 
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(Continued on page 40) 
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Now Your 


Fast compiles, fast code and great diagnostics Can See! 
make Wizard C unbeatable on MSDOS. Discover | 


the powers of Wizard C: = 29 & ,00* 


A total imaging system complete 









e ALL UNIX SYSTEM IIl LANGUAGE FEATURES. and ready for plug-and-go opera- 

¢ UP TO A MEGABYTE OF CODE OR DATA. ee I I PEIIORR) FORO or 

e SUPPORT FOR 8087 AND 80186. The MicronEye™ offers select: 

¢ FULL LIBRARY SOURCE CODE, OVER 200 FUNCTIONS. a8 ees ose: ee ee ae “ie 
ing S icronEye™ 

e CROSS-FILE CHECKS OF PARAMETER PASSING. up to 15 FPS. An electronic shutter “Bullet” 

e USES MSDOS LINK OR PLINK-86. is easily controlled by software or 

e CAN CALL OR BE CALLED BY PASCAL ROUTINES. manual functions, and the included sample programs allow you to con- 


tinuously scan, freeze frame, frame store, frame compare, print and pro- 
¢ IN-LINE ASSEMBLY LANGUAGE. duce pictures in shades of grey from the moment you begin speicion 
e 240 PAGE MANUAL WITH INDEX. Only the MicronEye™ uses the revolutionary S32 OpticRAM™ image 
e NO LICENSE FEE FOR COMPILED PROGRAMS. | sensor for automatic solid state image digitizing, with capability for grey- 
tone imaging through multiple scans. And with these features, the 
MicronEye™ is perfectly suited for graphics input, robotics, text and 
. | pattern recognition, security, digitizing, automated process control and 

The new standard for C Compilers on MSDOS! Tsay othies Sppcations: Sa 
The MicronEye™ is available with immediate delivery for these com- 
puters: Apple Il, IBM PC, Commodore 64 and the TRS-80CC (trademarks of 











| Apple Computer Inc., International Business Ma- 
Only $450 chines, Commodore Corp., and Tandy Corp. 
respectively). 
; : Phone for MicronEye™ information 
For more information call (617) 641-2379 1 on the Macintosh, TI] PC and RS232 
WWicast: Suet Soft (trademarks of Apple Computer Inc. and Texas In- TECHNOLOGY, INC. 
WSS iZar ystems sottware, Inc. struments respectively.) VISION SYSTEMS 
11 Willow Ct., Arlington, MA 02174 *(Add $10.00 for shipping and handling [Federal 9805 E Col bia Road 
Vicaihast d tad Express Standard Air]; residents of the following JS ast Columbia Noa 
isa/Mastercard accepte 1 states must add sales tax: AK, AZ, CA, CO, CT, FL, [gj Boise, Idaho 83706 


GA, IA, ID, IL, IN, LA, MA, MD, ME, MI, MN, NC, NE, 


(208) 383-4106 
NJ, NY, OH, PA, SC, TN, TX, UT, VA, VT, WA, WL.) 


TWX 910-970-5973 


Circle no. 77 on reader service card. Circle no. 44 on reader service card. 


Use ALL the Power of Your 
MS-DOS, IBM PC-DOS, or CP/M-80 System 
with UNIX-Style Carousel Tools 


CAROUSEL TOOLS are a proven set of over 50 programs 
designed to be used with pipes, redirected I/O and 
scripts. In the style of UNIX each Tool does one thing 
well, and the Tools can be used together to do more 

complex tasks. 

















YOU ACCOMPLISH MORE using Carousel Tools: better 
programming and documentation support, simpler 
data and file housekeeping, more general file 

handling. 


TOOLS FOR PC/MS-DOS 2.x AND CP/M-80 are available 
now. The DOS ToolKit is $149. The CP/M ToolKit is $249 
and includes a shell! to provide pipes, redirected I/O, 
and scripts. Source code is available for $100 more. 











ch “CP/M” “MS-DOS” <doc >newdoc 















dit peveder coc hmore ORDER YOUR TOOLKIT TODAY. 
, ed newdoc 
| kwic newdoc | sortmrg | uniq | unrot >index 
make -f makdoc ndx CALL OR WRITE: 
carousel Tosandcuoual oo wevstematecscemuel CAROUSEL MICROTOOLS, INC. 


trademark of International Business Machines; MS is a trademark of 
MicroSoft; UNIX is a trademark of Bell Laboratories. 






609 Kearney Street, El Cerrito, CA 94530 (415) 528-1300 
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Calculations (Listing Continued, text begins on page 30) 
Listing One 


Amplitude := ATan(Im/Re) 
END { of WITH Arg } 
END { of Polar }; 


PROCEDURE CToPower{VAR Result: Complex; Arg: Complex; Power: Integer} 


VAR I: Integer; 
Modulus, Amplitude, NewMod, PowAmp: Real; 


BEGIN { CToPower } 
IF Power = 0 THEN BEGIN 
Result.Re := 1.0; 
Result. Im := 0.0 


END 
ELSE BEGIN 
Polar(Arg, Modulus, Amplitude); 
NewMod := 1; 
IF Power > 0 THEN 
FOR I := 1 TO Power DO NewMod := NewMod*Modulus 
ELSE 
FOR I := 1 TO Abs(Power) DO NewMod := NewMod/Modulus; 
PowAmp := Power*Amplitude; 
Result.Re := NewMod*Cos(PowAmp) ; 
Result. Im := NewMod*Sin(PowAmp) 
END 


END { of CToPower }; 


PROCEDURE CExp{VAR Result: Complex; Arg: Complex}; 
VAR Expo: Real; 


BEGIN { CExp } 
Expo := Exp(Arg.Re); 
Result.Re := Expo*Cos(Arg. Im); 
Result. Im := Expo*Sin(Arg. Im) 
END { of CExp }; 


PROCEDURE CLn{VAR Result: Complex; Arg: Complex}; 
VAR Modulus, Amplitude: Real; 


BEGIN { CLn } 
Polar(Arg, Modulus, Amplitude); 
Result.Re := Ln(Modulus); 
Result.Im := Amplitude 

END { of CLn }; 


PROCEDURE CToC{VAR Result: Complex; Argl, Arg2: Complex}; 
VAR LogPart, Expo: Complex; 


BEGIN { CToC } 
CLn(LogPart, Argl); 
CMult(Expo, Arg2, LogPart); 
CExp(Result, Expo) 

END { of CToC }; 
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PROCEDURE CSin{VAR Result: Complex; Arg: Complex}; 
VAR Expl, Exp2, Partl, Part2, Sum, Divisor: Complex; 


BEGIN { CSin } 
Expl.Re := —Arg. Im; { z*i } 
Expl.Im := Arg. Re; 
CExp(Partl, Expl); { 
Exp2.Re := Arg. Im; { 
Exp2.Im := —Arg.Re; 
CExp(Part2, Exp2); { exp(-zi) } 
CSub(Sum, Partl, Part2);  { exp(zi) - exp(-zi) } 
Divisor.Re := 0.0; 
Divisor. Im := 2.0; 
CDiv(Result, Sum, Divisor) { (exp(zi) - exp(-zi))/(2i) } 
END { of CSin }; 


exp(zi) } 
-z*i } 


PROCEDURE CCos{VAR Result: Complex; Arg: Complex}; 
VAR Expl, Exp2, Partl, Part2, Sum, Divisor: Complex; 


BEGIN { CCos } 


Expl.Re := —Arg. Im; { z*i } 
Expl. Im := Arg.Re; 

CExp(Partl, Expl); { exp(zi) } 
Exp2.Re := Arg. Im; { -z*i } 
Exp2.Im := -Arg.Re; 

CExp(Part2, Exp2); { exp(-zi) } 


CAdd(Sum, Partl, Part2); { exp(zi) + exp(-zi) } 

Divisor.Re := 2.0; 

Divisor. Im := 0.0; 

CDiv(Result, Sum, Divisor) { (exp(zi) + exp(-zi))/(2) } 
END { of CCos };3 


BEGIN { ComplexArithmetic } 
END { of ComplexArithmetic }. 


End Listing One 


(Listing two begins on next page) 









‘C/80. . . the best software buy in America!” 
— MICROSYSTEMS 










Other technically respected publications like Byte In reviews published worldwide the amazing $49.95 
and Dr. Dobb’s have similar praise for The Software C/80 from The Software Toolworks has consistently 
Toolworks’ $49.95 full featured ‘C’ compiler for CP/M® scored at or near the top — even when compared with 













and HDOS with: compilers costing ten times as much! 
e |/O redirection The optional C/80 MATHPAK adds 32-bit floats and 
e command line expansion longs to the C/80 3.0 compiler. Includes I/O and trans- 
e execution trace and profile cendental function library all for only $29.95! 
e initializers -C/80 is only one of 41 great programs each under 
e Macro-80 compatability sixty bucks. Includes: LISP, Ratfor, assemblers and 
e ROMable code over 30 other CP/M® and MSDOS programs. 


e and much more! 













For your free catalog contact: 


The Software Toolworks’ 
15233 Ventura Blvd., Suite 1118, 
Sherman Oaks, CA 91403 or call 818/986-4885 today! 


‘‘We bought and evaluated over $1500 
worth of ‘C’ compilers. . .C/80 is the one 
we use.”’ 





— Dr. Bruce E. Wampler 
Aspen Software 
author of ‘‘Grammatik 









CP/M is a registered trademark of Digital Research. 
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Calculations (Listing Continued, text begins on page 30) 
Listing Two 


Program FFTTest(Input, Output, Prn); 


{* 

** This program generates a function to test various fast Fourier 
** transform programs. Ags currently implemented, the program compiles’ the 
** routine to be tested in-line with the test program. This is 
** dccomplished through the use of: ‘the "include" File mechanism aforke 


“*  : compiler. The outings to obe tested - should . be in a file called 


ee... “CURFFT, TEXT". - The-routine sé heading should be as follows: 
xe 


* Procedure Fourea( numPoints : Integer; 

** whichWay : Direction; 
** Var f : CmplxArray); 
k 


** where the types Direction and CmplxArray are as declared below. 

* 

*% The program computes the function ATT OE woO ye Lye oe MAR POINTS 2 
** The discrete Fourier transform of this function is also computed. The 
** procedure Fourea is called to compute the fast Fourier transform in the 
** forward direction. This call is then repeated, but. for... the reverse 
** direction. The theoretical. transform is then compared to the computed 
** “transform and the calculated. reverse transform is compared to the 
** original function. The maximum difference of each comparison is then 
** printed. A large maximum difference probably indicates a program error. 
* 

** The Unit ComplexArithmetic is used to perform the arithmetic on 
** complex numbers required by the algorithm. The value of MAXPOINTS is 
** set at 64 because it is also a power of 8. This is important because 
** the program is also intended to test a version of Fourea optimized for 
** data arrays of 512 complex points. 

** 

** Based on a Fortran program by C. M. Rader 

** MIT Lincoln Laboratory, Lexington MA 02173 

** 

** Written by David D. Clark 

** 26-Mar-83 

* } 


Uses {$U MATH. LIBRARY} ComplexArithmetic; 


Const MAXPOINTS = 64; { size of the transformed array } 
TWOPI = 6.2831853; CR egg 
PRINTFILE a PRINTER: “> { output device file name for results 
Type Direction = (Forwurd, Reverse); { note the spelling } 
CharFile = File of Char; 
CmplxArray = Array [1..MAXPOINTS] of Complex; 
Var I : Integer; { general purpose index variable } 
DD, 
D1, 
D2, 
ce. 
Gi 
G2, 
TwoPiDivMax : Real; { will be TWOPI/MAXPOINTS } 
OneZero, { 1.0 + 0.0*i (complex number 1) } 
A, 
D, 


(Continued on page 44) 


42 Dr. Dobb’s Journal, October 1984 
















GGM — FORTH™ has HELP* 
for Z80' using CP/M? 















CP/M° Software 


@ A>DBPACK: Information Manager -- Great for 
| Mailing Lists, Form letters, Tabulation and 
organizing data. Supports query, sort/search on 
multiple keys, report generation and many 
other data base functions. $115/$25. 
@A>COMCOM: Communication program. Up- 
loads/Downloads files, and more. $95/$15. 


A>CPMCPM: Transfers files (any type) between 
CP/M computers with incompatible disks. 
¢65/$10 includes copy for each computer. 


A>FILER: Archives, Sorts and Catalogs files 
with substantial disk space savings. $49. 


: A>BASXREF: Alphabetizes and Cross-refer- 
ences variables vs. line numbers in BASIC pro- 
grams. Simplifies program maintenance. $39. 


A>UNERA: Recovers erased files. $29. 


CP/M is a registered trademark of Digital Research, Inc. 




















_ | GGM—FORTH, a complete software system for 
| real-time measurement and control, runs on any 

Z80 computer under CP/M using an extended fig- | 
FORTH vocabulary. : 


GGM—FORTH features: : 
e Open multiple CP/M files, in any combination o 
of direct-access and sequential-access, fully | — 
compatible with all CP/M utilities : 
¢ Char. in/out uses CP/M console, lister, file, or | 
port 


e On-line HELP* provides instant access to defi- : 
nitions in the run-time GGM—FORTH dic- | 
tionary : 

e HELP* file is easily extended to include user | 

: definitions using HELP* utility 

|e HELP* is available during full-screen editing 


Complete system and manuals $150. 




























































Available in most disk formats. 


* Clearly written and indexed manuals included. 
Where two prices are quoted, second refers to 
















manual only (creditable towards software). Manuals only: $ 20. 

All packages returnable in 15 days. Introductory System: g 35. - 
 COMPU-DRAW MasterCard, Visa & GGM SYSTEMS, INC. (617) 662-0550 | — 

1227 Goler House = Amex cards, PO's from 135 Summer Ave., Reading, MA 01867 






Cisse 


“| recognized institutions 
= and COD are welcome. 





Rochester, NY 14620 
(716)-454-3188 















| ‘Z80 is a trademark of Zilog, Inc. 
2CP/M is a trademark of Digital Research, Inc. 








- Circle no. 13 on reader service card. Circleno. 28 onreaderservicecard. | : 


UNPARALLELED 
PERFORMANCE 
anc] PORTABILITY 

foo an ISAM P/A\GIWAG 
ac an UNBEATABLE 





2606 Johnson Drive 
Columb MO 65203 


314) 445-6833 





Circle no. 25 on reader service card. 


Calculations (Listing Continued, text begins on page 30) 
Listing Two 


E, 
W, 
Ten, 
TemTem >: Complex; 
B, { complex data arrays } 
C, 
Qb >: CmplxArray; 
PrnFile : CharPite: {’print.out:: file > 
Procedure PrintOut( numPoints : Integer; 
Var £ : CmplxArray; 
Var dev : CharFile 5 


{* 
** Print out the numPoint members of complex array f on dev 


*} 


Var i 
J. t<Integer: 


Begin { PrintOut } 
WriteLn(dey); 
For 1 := 1 to numPoints Div 2 Do Begin 
OFS 2 TS 
WriteLna(dev;:. "C7. 3 Sao Seg fay bore: (14, £44 
E ge Bb) 2 
End; 
WriteLn(dev); 
WriteLn(dev) 
End { of PrintOut }; 


{ now include the FFT procedure } 
{$I CURFFT. TEXT} 


Begin { FFTTest } 


{ some initialization } 

OneZero.re := 1.0; OneZero.im := 0.0; 

TwoPiDivMax := TWOPI/MAXPOINTS; 

W.re := Cos(TwoPiDivMax); W.im := -Sin(TwoPiDivMax); 
A. re. 380593) Ao tae Se Pes 

ReWrite(PrnFile, PRINTFILE); 


].im: 
ga aE tet lh Ae Pt fied) aes 


{ Calculate and print function A*I, I := Os Bg Pa MAX POINTS S193 
BL1] := OneZero; 

Qbl1] := OneZero; 

For Lo-2 22° to MAXPOINTS Do Begin 


CToPowerCUB ii). Ayo tie 2) 
Qb{1I] := B[I] 


End; 
WriteLn(PrnFile, “Complex input sequence:”); 
PrintOut(MAXPOINTS, Qb, PrnFile); 


{ Caveulate and print the theorecticak discrete Fourier transform } 
CToPower(Tem, A, MAXPOINTS); 

CSub(D, OneZero, Tem); 

For I := 1 to MAXPOINTS Do Begin 


14; 
14) 
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CToPower(TemTem, W, I - 1); 

CMult(Tem, A, TemTem) ; 

CSub(E, OneZero, Tem); 

CDivect iri; D, EF) 
End; 
WriteLn(PrnFile, “Theoretical discrete Fourier transform:”); 
PrintOut(MAXPOINTS, C, PrnFile); 


{ Calculate and print the fast Fourier transform of the function } 
Fourea(MAXPOINTS, Forwurd, B); 

WriteLn(PrnFile, “"Fourea" generated discrete Fourier transform:”); 
PrintOut(MAXPOINTS, B, PrnFile); 


{ Find the maximum difference } 

DD := 0.0; 

For I := 1 to MAXPOINTS Do Begin 
Dl := Abs(C[I].re - Blil.re); 
D2 := Abs(C[I].im - BII].im); 


Tf.-D1°3° DD ‘Then 
If D2 > Dl Then 
DD := D2 
Else 
DD: ye Dd 
Else If D2 > DD then 
DD := D2 


End; 


{ Calculate and print the inverse transform } 

Fourea(MAXPOINTS, Reverse, C); 

WriteLn(PrnFile, “"Fourea" generated inverse descrete Fourier transform:”); 
PrintOut(MAXPOINTS, C, PrnFile); 


{ Find the maximum difference } 

Go <=. 0.0% 

For I := 1 to MAXPOINTS Do Begin 
Gl := Abs(Qb[I].re - Cli].re); 
G2 := Abs(Qb[I].im - C[I].im); 


If Gl > GG Then 
tec? >: Gil Then 


GG 32.G2 
Else 
GG := Gl 
Else. lf G2. > GG. then 
GG := G2 


End; 
{ Print out the maximum differences } 
WriteLn(PrnFile, “Max diff between theor. and Fourea DFT is? DD); 


WriteLn(PrnFile, “Max diff between orig. and inverse is “66 ) 


End { of FFTTest }. 


End Listing Two 


(Listing three begins on next page) 
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Calculations (Listing Continued, text begins on page 30) 
Listing Three 


Ero 


{* 
** 
** 
*x* 
*x* 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 


we) 


Var 


cedure Fourea( numPoints : Integer; 
whichWay : Direction; 
Var f : CmplxArray); 
Performs a Cooley-Tukey type fast Fourier transform. 
f is a one dimensional complex array whose length, numPoints, is 
a power of two. whichWay determines in which direction the transform 


will be performed. If it is Forwurd, then isInverse is set to -l and 
a forward transform is carried out. If whichWay has a value of Reverse, 
then isInverse is set to 1 and a reverse transform is calculated. 
transform[j] := sum(fli]l*w*((i-1)*(j-1))), where i and {> ain sie 
1 to numPoints and w := exp(isInverse*2*pitsqrt(-1)/numPoints). The 
program also computes the inverse transform, for which the defining 
expression is: inverse DFT := (1/numPoints)*sum(fli]*w*((i-1)*(j-1))). 

Run time is proportional to numPoints*Log2(numPoints) rather than 
to numPoints”2 for the classical discrete Fourier transforn. 

This is a very short version of the FFT and is only intended for 
demonstration purposes. Programs are available which run faster and 
are not restricted to numbers of points that are powers of two or to one 
dimensional arrays. 

isInverse : Integer; 
Function Power0OfTwo( numPoints : Integer) : Boolean; 
{* 
** Determine if numPoints is an integer power of 2. 
*} 
Var modulo : Integer; 


Begin { PowerOfTwo } 
PowerOfTwo := True; 
modulo := Q; 
While (modulo = 0) and (numPoints >= 2) Do Begin 
modulo := numPoints Mod 2; 
If modulo = O Then 
numPoints := numPoints Div 2 
Else 
PowerOfTwo := False 
End 
End { of PowerOfTwo }; 


Procedure Scramble( numPoints : Integer; 
Var <4 ; CmplxArray) ; 
{* 
K*- Put the data in bit reversed order. 
* } 
Var re 

j> 

m > Integer; 

temp : Complex; 
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_ DEVELOPMENT HARDWARE/SOFTWARE Model 7128-24... 329.00 
_ DREPGX or DRSPGX |S 75.00 
HIGH PERFORMANCE/ COST RATIO i Erase Neseniblens $200.00 
/ KASM (for MSDOS) .- $250.00 
# OE ne eo $ 78.0 
INC. (601) 467-8048 RS747 Cables etl $30.00 
8751 adapter $174.00 


Split facility for 16 bit data paths * Read, program. 
_ formatted list commands * Interrupt riven, 
_ program and verify real time while 

sending data * Program single byte, 

block, or whole EPROM * Intelligent 


| Thanks to YOU .. 
C64-FORTH!/79 — with YOU and your Computer 
New and Improved oe LEO ELECTRONICS, INC. 
for the Commodore 64 P.O. Box 11307 


T A. : 
C64-Forth/79™ for the Commodore 64-$99.95 orrance, CA. 90510-1307 


e New and improved FORTH-79 implementation with Tel: 21 olla eee aaa 
extensions. 


e Extension package including lines, circles, scaling, 
windowing, mixed high res-character graphics and sprite Os ee Seen es ae 


graphics. 
e Fully compatible floating point package including 
arithmetic, relational, logical and transcendental functions. 64K UPGRADE 
e String extensions including LEFT$, RIGHTS, and MID$. 
e Full feature screen editor and macro assembler. 9 Bank (IBM PC) $43.65 (150ns) 
e Compatible with VIC peripherals including disks, data set, $41.85 (200ns) 


modem, printer and cartridge. 4164 (150ns) $4.85 ea. 
e Expanded 167 page manual with examples and application _ (200ns) $4.65 ea 


screens. 

e “SAVE TURNKEY” normally allows application program _ 8 Bank (other PC) $38.80 (150ns) 
distribution without licensing or royalties. $37.20 (200ns) 
(Commodore 64 is a trademark of Commodore) 4164 (1 50ns) $4.85 ea. 


TO ORDER (200ns) $4.65 ea 


-Disk only. ‘4 of 
-~Check, money order, bank card, COD’s add $1.65 | 256K ‘‘Mother-Saver’’ Upgrade 


-Add $4.00 postage and handling in USA and Canada . 256K - (150ns) $36.00 ea 
-Mass. orders add 5% sales tax + 6116P-3 — $4.40 F729. —. $395 


-Foreign orders add 20% shipping and handling — 2716 -+:.: $3.20 2764 — _ $7.00 
-Dealer inquiries welcome | TMS-2716 — $4.95 27128 — $24.00 


PERFORMANCE MICRO PRODUCTS 


770 Dedham Street meer 
Canton, MA 02021 VISA 
(617) 828-1209 fea 






















We accept checks, Visa, Mastercard or Purchase Orders 

from qualified firms and institutions. U.S. Funds only. 

Call for C.O.D. California residents add 6%% tax. 

Shipping is UPS. Add $2.00 for ground and om 010 n co] ae 
MATT CMU ea MO LU ers 
f Pricing subject to change without notice. 





Circle no. 47 on reader service card. Circle no. 41 on reader service card. 





Model 7128-L1,L2,L2A . $239 .00 


S755 adapter: 2; 5.2. $135.00 
48 Family adapter.... $ 98.00 


EPROM PROGRAMMER 


Compatible w/all Rs 232 serial interface port * Auto $879 stand alone 

select baud rate * With or without handshaking * MODEL 7956 

Bidirectional Xon/Xoff and CTS/DTR supported * 

Read pin compatible ROMS * No personality $549 

modules * Intel, Motorola, MCS86, Hex formats oe 
722 







diagnostics discern bad and erasable MODEL 7228 


EPROM * Verify erasure and compare MODEL 7956 % EPROM PROGRAMMER 

commands * Busy light * Complete GANG PROGRAMMER ME All features of Model 7128 plus 
w/Textool zero insertion force socket Intelligent algorithm. Stand alone, sug, ato Select Baud . super fast adaptive 
and integral 120 VAC power (240 copies eight EPROMS at a time. A f “7 programming algorithms, low profile 
VAC/S0Hz available) With RS-232 option $1099. ee sons eoncncecaiigensson aluminum enclosure. Programs 2764 





DR Utility Package allows communica- 


a range of addresses to send to the 





in one minute! 





tion with 7128, 7228, and 7956 $549 

programmers from the CP/M com- MODEL 
mand line. Source Code is provided. 7316 
PGX utility package allows the same : 
thing, but ib also allow you to specify 


$429 
MODEL 
7128 








programmer, Verify, set the Eprom 
type. 


EE 
MODEL 7316 PAL PROGRAMMER 
Programs all series 20 PALS. Software 
included for compiling PAL source 


codes. 1 4 oe fe 
Software Available for CPM. ISIS. 





MODEL 7128 EPROM PROGRAMMER 


3 4 Avocet Cross Assemblers are Programs and Read: 
TRSDOS. MSDOS. available to handle 8748, 8751, $1195 
igi Z8, 6502, 680X, ete. MODEL NMOS NMOS CMOS EEPROM MPU’S 
1. TM of Digital Research Corp. Available for CP/M and § 7324 aa sane rete RTS oun 
2. TM of Intel Corp. MSDOS computers. Order by oe 7 
3. TM ify 2516 2716 27C32..5 82138 8748H 
: of Tandy Corp. oo a type and specify 3532 3732 C6716. X2816 8749H 
4. FM of Microsoft. EEE SY 2564  2732A 27C54 48016 8741 
Model DE-4 U/V Products MODEL 7324 PAL PROGRAMMER 68766 2764 12816A 8742H 
Post Office Box 289 hold 8, 28 pin parts. High Programs all series 20 & 24 PALS. 68764 27128 8741H 
Waveland, Mississippi 39576 quality professional construc- Operates stand alone or via RSZ32. 8755 27256 8751 
[601]-467-8048 tion. 5133 










Circle no. 29 on reader service card. 





Calculations (Listing Continued, text begins on page 30) 
Listing Three 


Begin { Scramble } 
a 21 3 
For 1 := 1 to numPoints Do Begin 
Peo is<. 7 Then Begin 
temp := f[j]; 
F(3:). ve £hids 
fli] := temp 
End; 
m := numPoints Div 2; 
If m < j Then 
While m < j Do Begin 


j Se 
m := (m +1) Div 2 
End; 
jr= jen 


End 
End { of Scramble }; 


Procedure Butterflies( numPoints, 

isInverse : Integer; 
. Var f : CmplxArray); 
{x 


** Calculate the butterflies for the bit reversed 


** Normalize if a reverse FFT is performed. 


*} 
Const pi = 3. Lal59273 


Var mMax, 
step, 
indéx , 
m, 
1, 
j > Integer; 
theta : Real; 
WwW, 
en, 
temp : Complex; 


Begin { Butterflies } 


data:.of an FFT, 


mMax := 1; 
While numPoints > mMax Do Begin 
step := 2*mMax; 
For m := 1 to mMax Do Begin 
theta := pi*(isInverse*(m - 1))/mMax; 
were := Cos(theta); w.im := Sin(theta); 
For i := 1 to ((numPoints - m) Div step) + 1 Do Begin 
index := m + ((i - 1)*step); 
j := index + mMax; 
CMult(temp, w, £[j3]); 
CSub(f[j], flindex], temp); 
CAdd(flindex], flindex], temp) 
End 
End; 
mMax := step 
End; 
If isInverse = 1 Then Begin 
cn.re := numPoints; Cn.dam. 3=:-0.0*% 


For 1 := 1 to numPoints Do 
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Chay tis fiat) cn) 
End 


End { of Butterflies }; 


Begin { Fourea } 
WriteLn(’Fourea’); 
If PowerOfTwo(numPoints) Then Begin 
If whichWay = Forwurd Then 
isInverse := -l 
Else 
isInverse := l; 
Scramble(numPoints, f); 
Butterflies(numPoints, 
End 
Else Begin 
WriteLn(’The number of points in the array was not a power of tou 23 
WriteLn(“No transformation performed.) 


isInverse, f) 


End 
End { of Fourea }; 


“Truncated Output from the Program” 


Complex input sequence: 


©.) 1.00000 0.00000 C2) 9.00000E-1 3.00000E-1 
(3) 7.20000E-1 5. 40000E-1 C&) 4.86000E-1 7.02000E-1 
(61) 3.80692E-2 1.86474E-2 (62) 2.86681E-2 2.82034E-2 
(63) 1.73402E-2 3.39835E-2 (64) 5.41117E-3 3.57872E-2 
Theoretical discrete Fourier transform: 

Pei) 10736 2.98377 J) 1.65441 4.19275 
C33 3.60049 6.69406 Ch) 1.58381El 7.26182 
(61) 6.55765E-1 1.31934 (62) 6.98674E-1 1.54663 
(63) 7.65931E-1 1.85433 (64) 8.81321E-1 2.29593 
"Pourea" generated discrete Fourier transform: 

BD 1.10736 2.98377 C2) 1.65441 4.19275 
aes @ 3.60051 6.69405 ( 4) 1.58380E1l 7.26169 
(61) 6.55781E-1l 1.31934 (62) 6.98693E-1 1.54663 
(63) 7.65960E-1 1.85433 (64) 8.81363E-1 2629592 


"Fourea” generated 


inverse descrete Fourier transform: 


C 2p) 9.99996E-1 1.02073E-6 G23 8.99998E-1 3.00002E-1 
(535 7.19999E-1 5.40002E-1 C4) 4.85999E-1 7.02002E-1 
(61) 3.80697E-2 1.86473E-2 (62) 2.86679E-2 2.82035E-2 
(63) 1.73393E-2 3.39839E-2 (64) 5.40911E-3 3.57877E-2 
Max diff between theor. and Fourea DFT is 1.24931E-4 

Max diff between orig. and inverse is 3.81470E-6 


End Listings 
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GREP.C 


A Unix-Like, Generalized, 
Regular Expression Parser 
INC 


by Allen Holub 


“The power of grep lies in its use 
of regular expressions as pattern 
templates rather than explicit strings.” 


group of files and finds text patterns matching a sym- 

bolic regular expression. Grep is surprisingly useful. 
With it you can find a subroutine lost in one of the 50 mod- 
ules making up the giant program that you’re working on. 
You can find the misspelled name that your linker says is an 
undeclared function. Grep can number all the lines in a file 
or list all procedure declarations in a C program, as well as 
perform any of innumerable other things. 

A good example of grep’s utility is the history of this ver- 
sion, grep.c. I started out wanting to expand the pattern- 
searching capabilities of Ed Reams’ editor, RED (DDJ No. 
81). I wanted to add a pattern-searching capability similar 
to that of the Berkeley Unix editor, vi. So I set about convert- 
ing into C the pattern-matching algorithms in Software 
Tools in Pascal by Kernighan and Plauger (Addison-Wes- 
ley, 1981, Ch. 5). 

Along the way I ran into difficulties. My version of RED 
was written in BDS C, which has a nonstandard I/O library. 
I wanted to translate the editor over to standard C so I could 
port it between different compilers and different machines. 
To do the translation, I needed to find all calls to the non- 
standard library routines. So I turned my pattern matcher 
into a real program, linked the BDS version of RED without 
linking the library modules (to get a list of the library rou- 
tines that RED used), then used grep to search all the mod- 
ules of RED for procedure calls to the library functions. 

The program presented in this article is most of the Unix 
grep. The only omissions are those command line switches 
that are Unix dependent, the —x switch (which performs an 
exact line match), and the +, ?, and ( ) regular expression 
operators (which are not essential). 

The power of grep lies in its use of regular expressions as 
pattern templates rather than explicit strings. For example, 
the grep command line: 


(; rep is the Unix pattern finder: it goes into a file or 


grep “la zila. ei *s\t}= (Popes 
mod1.c mod2.c mod3.c 


creates a cross reference of a large C program. The three files 
mod1.c, mod2.c, and mod3.c are searched. Grep’s output will 
show all subroutine declarations along with the name of the file 
in which the subroutine is declared. The regular expression is 
interpreted as follows: beginning of line (*), followed by one or 
more occurrences of any character in the range a to z([a —1 
z][a — z]*), followed by either a space or a tab repeated zero 
or more times ([{\s\t]*), followed by any character repeated 
zero or more times (.*), followed by an open parenthesis (( ), 
followed by any character except a semicolon repeated zero or 
more times ([{*;]*), followed by a close parenthesis ( ) ), fol- 
lowed by any character except a semicolon repeated zero or 
more times ([{*;]*), followed by end of line ($). 


Allen Holub, Software Engineering Consultants, P.O. Box 
5679, Berkeley, CA 94705. 

Copyright © 1983, 1984 by Allen Holub. All rights reserved. 
Permission is granted for personal, non-commercial use 
only. Any use for profit or other commercial gain without 
written permission of the author is prohibited. 
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You could also use grep to get a count of the number of 
procedures found and either have the matching lines printed 
out with line numbers or have all the lines not matching the 
pattern printed by including various command line switches 
in the program invocation. 


Regular Expressions 

Regular expressions are a way of representing text patterns in 
a symbolic shorthand. The * and ? that CP/M uses are exam- 
ples of a crude regular expression syntax. The symbols grep 
uses to define regular expressions fall into five categories: 


¢ Symbols that match a specific character 

¢ Symbols that match any character 

¢ Symbols that match a character’s position on the line 

¢ Symbols (called ‘‘character classes”) that match any of a 
set of characters or anything except a set of characters 

¢ Symbols that let you match the previous symbol any num- 
ber of times (called ‘“‘closure’’) 


The rules for constructing regular expressions are given on 
the excerpted manual page (Figure 1, page 53). Some exam- 
ples follow. 


a.d 

matches any word containing an “‘a,” followed by any char- 
acter, followed by a ‘“d.” This expression will match the 
substrings ‘‘and” in ‘‘and” and “ard” in “aardvark”; this 
means that grep will print any /ine containing either word, 
along with any other match. 


“a.d 

will match the same strings but only if they occur at the 
beginning of the line. No characters, including spaces and 
tabs, are allowed in front of the “a.” 


a.d$ 
will match the same strings if they occur at the end of the 
line. No character, including spaces and tabs, can follow the 


“qd 99 
. 


“$ 

will match a beginning of line, followed by an end of line; this 
means that it will match all lines containing nothing but a 
newline character. 


an*d 

will match any word containing an “a,” followed by an “n” 
repeated zero or more times. This expression will match 
“add” as well as “and.” 


* 

will match any character repeated any number of times. This 
expression will always succeed. For example, an invocation 
of grep with the line 


grep —n .* (filename) 
will output every line in the file preceded by its line number. 





aa* 
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will match one (rather than zero) or more occurrences of the 
letter “‘a.”’ For example, 

[abc] 

defines a ‘‘character class.” A character class matches any 
one of the characters surrounded by the square brackets. 
This particular character class will match an “a,” “b,” or 
‘“‘c” in the corresponding position on the line. 


who|[ms]e 

matches “who,” followed immediately by either an “‘m” or an 
“s” followed by an “‘e.” That is, the words “whomever” and 
“whose” will be matched, but the word “whole” will not. 
Character class definitions may be abbreviated by using a 
dash. For example, , 


[a —k] 
will be treated as if you had said [abcdefghijk ]. Similarly, 


[0 -9A —- Fa-f] 

will be expanded to [0123456789ABCDEFabcdef]. This 
last character class will match any single hexadecimal digit. 
That is, any digit or any letter between “eo -and. of >. Wall-e 
matched. Note that you have to say “A —Fa-—f” to match 
both upper and lower case. 


0x[0 — 9a —-fA—F][0-9a-fA - f]* 

will match all lines in a C program that contain hexadecimal 
numbers. This regular expression matches the characters Ox, 
followed by any of the characters 0123456789abc 
defABCDEF repeated one or more times. A “negative char- 
acter class” (one that matches any character except those 
listed) may be defined by using * as the first character fol- 
lowing the [. For example, 


fl *o] 

will find all occurrences of an “f” not followed by an “o.” Be 
careful here with patterns at the end of line. Although [*o] 
matches any character that is not an “o,” a lone “f” at the 
end of line will not match the pattern because the end of line 
is not a character — it is a position. f[*o]*$ or f$1f[*o] will 
find an “f”’ at the end of line. 


[a—zA-—Z]f\s|[A—Z][A —-Z]*\s 

will match all lines containing words ending in “‘f” or all lines 
containing words composed only of upper-case characters. 
That is, if either of the regular expressions separated by the! 
are satisfied, a match is returned. 

If you need to match a character that is used as a symbol 
in the regular expression, precede it with a backslash (\). For 
example, \* will match an asterisk, and \\ will match the 
backslash itself. Certain escape sequences (as these back- 
slash sequences are called) are predefined; in particular, \s 
matches a space and \t matches a tab (control-I). 

These are needed because of the irregularities of certain 
compilers and operating systems. A space in the command 
line will make many command-line interpreters break up the 
expression into two arguments. A tab in the command line 
will confuse CP/M utterly: it won’t execute your program at 
all. Other escape sequences are defined on the manual page 
(Figure | below). 
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Technical Description 

The routines in tools.c differ from those in Software Tools in 
three important ways. First, the routines were translated into 
C. Second, all references to array indexes were replaced with 
pointers in the interest of increased execution speed. Finally, 
the data structure used for the pattern template was changed 
significantly. 

The reasons for this last change are somewhat complex. 
Grep breaks up the input expression into a pattern template, 
where each element of the template represents a single logi- 
cal portion of the expression. For example, the expression 
[a —z]x.* 
requires four elements in the pattern template. One element 
is required for the character class (“[a-—z]’), one element 
for the literal character match (‘‘x”’), one element to match 
any character (the ‘*.”’) and one element for the closure (the 
“*”). Processing the expression is much easier once it has 
been functionally divided in this way. 

Kernighan and Plauger use a single ASCII string as their 
pattern template, and this data structure causes several 
problems. Varying numbers of characters are required to 
represent different types of elements in the template. To ad- 
vance through the template, you need a subroutine that ana- 
lyzes the current element and then advances the appropriate 
number of characters; this subroutine adds unnecessary 
overhead to the pattern-recognizing parts of grep. By replac- 
ing the ASCII string with a linked list of structures (which is 
how the templates are represented in my version of grep), 






NAME > 

grep—search a file for a pattern 
SYNOPSIS 

grep [—options] . . . [expression] [filelist] . . . 
DESCRIPTION 


you can advance to the next pattern with a single assignment 
operation. 
Grep can be broken up into three distinct parts: 


(1) Get the regular expression(s), the file list, and any 
switches from the command line. 

(2) Translate the expression(s) into a pattern template. 

(3) Go through the input files one line at a time, calling the 
routine matchs( ), and produce the appropriate output 
on finding a match. 


Getting the Expressions 

Grep is divided into two main modules: grep.c and tools.c. 
Grep.c does all of the I/O and tools.c contains the pattern- 
matching routines. Grep translates the pattern strings into a 
special template representing the pattern (more about this 
later), while the routine matchs( ) does the actual pattern 
matching; it processes all symbols except the OR (|) opera- 
tor, which separates the regular expressions. 

Grep creates a template for every regular expression input 
and organizes these templates using an array of pointers to 
templates (similar to argv) called exprv[ ]; a count of the 
number of separate expressions in the array (exprc) is also 
available. Grep then calls matchs( ), once for each template 
in exprcv{ ], before getting the next input line. 


The Pattern Template 
The templates are a linked list of structures called TOKENs 





This program will find a string specified by a regular expression in a file or group of files. The following options are 


recognized: 
-v__ Alllines but those matching are printed. 
-c Only acount of the matching lines is printed. 


-| The names of the files with matching lines are listed (once) separated by newlines. 


-n___Eachline is preceded by its line number in the file. 
-h Do not print filename headers with output lines. 


-y All characters in the file are mapped to upper case before matching. This is the default if the regular 
expression is given on the command line (because CP/M maps everything on the command line to upper 
case). Use the -f option if you need both lower and upper case. 

-€ <expression> Same as a simple expression argument, but useful when the expression begins witha ‘’—."’ 

—f <file> The regular expression is taken from the file. If several regular expressions are listed (separated by 
newlines or|s) then a match will be flagged if any of the regular expressions are satisfied. -e and -f are 
mutually exclusive. If -f is given, any regular expression on the command line is taken to be a filename. 


Regular expressions are composed of the following: 
A * matches the beginning of a line. 


A $ matches the end of a line. 


A \ followed by a single character matches that character. In this way a ‘‘\*’’ will match an asterisk, a ‘’\.”’ 
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matches a period, etc. The following sequences are special: 


Figure 1 
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\b backspace (*H) 

\n linefeed (*J this is not the same as $) 
\r carriage return (“M) 

\s space 

\t tab (71) 

\\ backslash 


A . matches any character. 
A single character not otherwise endowed with special meaning matches that character. 


_ A string enclosed in brackets [ ] specifies a ‘‘character class.’ Any single character in the string will be matched. 
For example ‘‘[abc]’’ will match an a, b, or c. Ranges of ASCII character codes may be abbreviated as in 
‘‘fa-zO-9]."’ If the first symbol following the [ is a * then a ‘‘negative character class’ is specified. In this case, the 
string matches all characters except those enclosed in the brackets (i.e., [*a-z] matches everything except lower 
case letters). Note that a negative character class must match something, even though that something cannot be 
any of the characters listed. For example: ‘'*$" is not the same as ‘'*(*21$."' The first example will match an 
empty line (beginning of line followed by end of line); the second example matches a beginning of line followed by 
any character except a z followed by end of line. In the second example a character must be present on the line, 
but that character can’t be a z. Note that *, ., >, and $ are not special characters when inside a character class. 


A regular expression followed by a * matches zero or more matches of the regular expression. 
Two regular expressions concatenated match a match of the first followed by a match of the second. 

Two regular expressions separated by a|or a newline match either a match for the first or a match for the second. 
The order of precedence is [ ] then * concatenation then | then newline. 


EXAMPLE: 
The command line: 
grep —n *[a-z] [a—z] * [\s\t] *.* ([°3]") ((:]°S <file list> 
creates a cross reference of a large C program. ‘’<file list>‘’ should be replaced with a list of the modules to be 
searched. Grep’s output will show all subroutine declarations in all the listed files. In addition, every output line 
will be preceded by both the name of the file in which the line was found (this is automatic if more than one file is 
searched) and by the appropriate line number (the —n causes line numbers to be shown). 


The regular expression is interpreted as follows: beginning of line (*) followed by one or more occurrences of any 
character in the range a to z ( [a-z] [a-z]* ), followed by either a space or a tab repeated zero or more times 
([\s\t]* ), followed by any character repeated zero or more times (.*), followed by a open parenthesis ((), 
followed by any character except a semicolon repeated zero or more times ( [*;]* ), followed by a close parenthe- 
sis () ), followed by any character except a semicolon repeated zero or more times ( [*;]* ), followed by end of 
line ($). 
BUGS 

All features of the unix version of grep are supported except that the -s, -x, and —b options and the meta- 
characters (,), + and ?. 


Arguments, if present, must be grouped together in the second position on the command line. The character of 
the group must be a-. Unless the -f option is given, the next argument is always taken to be the expression. If -f 
is present then the third argument is the name of the file containing the expression. 


Beware of spaces or tabs in the expression, even if your compiler supports quoted arguments. CP /M will object 
to *| anywhere on the command line. Use \s for spaces and \t for tabs to be safe. 


Some of the command line switches do mutually exclusive things (like —ef and —eh). lf you try to trick grep into 
doing something it is not supposed to do, the output will be undefined. 


Grep’s execution speed varies as a function of the type of expression being parsed. The speed will vary as 
follows (listed fastest to slowest): 

— Simple expressions anchored to beginning of line (° <expression>). 

~ Expressions matching literal strings. 

— Expressions including character classes (Li). 

~— Expressions including closure ("*). 


Figure 1 
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(Figure 2, below). Matchs( ) is passed a pointer to this linked 
list. A string holding a regular expression is converted to a 
template by the procedure makepat( ). Since alloc( ) is used 
to allocate the (main) memory needed to contain the tem- 
plate, the expression can be any length, within reason. Using 
the routine unmakepat( ), you can return the memory used by 
a template to the free list. Unmakepat( ) is not used by grep, 
but it may be useful for other applications (such as editors). 

Some of the fields in a TOKEN are not always used; al- 
though using a union would have saved a small amount of 
(main) memory space, this would have added additional com- 
plexity to the program as a whole. The tok field identifies the 
type of symbol represented by this node (closure, character 
class, etc.). If the node is a literal character, Ichar holds the 
character itself, and if the node is a character class, string 
points at a string holding all the characters in the class. Class- 
es defined with the dash notation (a —z) are expanded. 

Note that a CLOSURE token is put into the chain in front 
of the node on which it operates (even though the closure 
symbol is put after the character in the expression itself). 
This transposition eliminates the need for any sort of look- 
ahead in the searching routines. When we encounter the 
CLOSURE token, we know the next token should be repeated 
zero or more times. If the CLOSURE token didn’t come first, 
we would process the character on which the CLOSURE op- 
erates as if it were a literal match; that is, we would match a 
single occurrence of the character. Since closure represents 
zero Or more matches, this first match would be incorrect. 
So, if the CLOSURE token didn’t come first, we couldn’t 
process a token without also having to look for a CLOSURE 
token following it. 


Matchs( ) 
The core of grep is the routine matchs( ) and the procedures 
that matchs( ) calls. This routine looks for a regular expres- 
sion match in a string. It takes the string and a pointer to a 
pattern template as input and returns a pointer into the 
string upon success (or zero if no match is found). This 
pointer can point at either the beginning or the end of the 
matched string, depending on the value of the “retcendp’ 
parameter to matchs( ). If ret_endp is zero, a pointer to the 
beginning of the matched string is returned; if ret_endp is 
non-zero, then a pointer to the end of the matched string is 
returned. For example, given the string “abcdefghijklm” 
and the pattern a.*j, matchs( ) can return a pointer either to 
the “a” or to the “‘j.” This is a useful feature in an editor. 
You must be careful with the $ symbol if you want to use 
the pointers returned by matchs( ). Usually $ means ar the 


previous node 


next node in the 
list 


end of line, not the end-of-line character itself; for example, 
if you are searching for f$, a pointer will be returned to the 
““f.”” However, if you are searching for § itself, a pointer to 
the actual end-of-line character is returned. This takes care 
of the *$ case. Matchs( ) must return a pointer to something, 
and the only character on the line is the newline character. A 
search for \n will always return a pointer to the newline. 
This last is a nonstandard feature but, again, is useful in an 
editor application. 

Matchs( ) advances through the input string, one character 
at a time, until it reaches the end of the string and failure is 
returned. It calls amatch( ) to actually do the comparisons; 
when amatch( ) returns success, so does matchs( ). 

Amatch( ) goes through the pattern template, one element 
at a time, comparing it with the text string. It advances to the 
next element of the template with each successful comparison, 
also advancing the text string as appropriate. If amatch( ) 
reaches the end of the template, the match is successful. 
Omatch( ) is called to do the simple comparisons: single char- 
acters against single elements in the pattern template. 

Amatch( ) returns immediately on failure so the perfor- 
mance of matchs( ) is not too slow in the general case (exe- 
cution time is directly proportional to the length of the input 
stream). The worst-case performance, however, is an expo- 
nential function of the matched string’s length. Given an 
input string of the form 


adaaaaaadaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaab 
along with a match string 
a*c 


amatch( ) will be called 1 times, where n is the length of the 
input string. Each call to amatch( ) will look at the entire 
input string on the order of n2 times; this means that the total 
worst-case execution time is O(73). 

Most of this is the fault of closure processing, which is 
done by brute force. Amatch( ) first eliminates all the char- 
acters defined by the closure, scanning along the text string 
and calling omatch( ) until a mismatch is found. It then tries 
to match the rest of the template against the rest of the text 
string. If it fails to do so, amatch( ) goes backwards through 
the characters it just processed, still trying to match the 
trailing string against the rest of the pattern template. This is 
necessary because the character following the closure could 
have been included in the closure itself. 

For example, in the pattern [a — z]*t (which matches any 


Figure 2 
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‘er 





‘Achar: 


string: . 
next 


Achar: = |} — ‘ic 


lower-case word ending in a “‘t’’), the final “t” will be sucked 
up by the first scan since “t” is included in the character 
class [a—z]. Since amatch( ) has scanned too far, an at- 
tempt to match the “t” will now fail. So, it backs up a notch 
in the input string then tries to match the rest of the pattern 
template again, repeating this process recursively until it 
gets back to the beginning of the closure. The recursion only 
goes one level deep. If anyone knows a better way to do this, 
please tell me. 


Examples 

Makepat( ) takes two arguments. The first argument is an 
ASCII string holding the regular expression; the second ar- 
gument is a character to use as a terminator in the expression 
string. That is, processing of the expression string will be 
terminated when the character specified by the second argu- 
ment is encountered. 

The template returned by makepat( ) when called with 


makepat(‘‘*The qui’’, “\0’) 
is shown in Figure 3 (below). If we had called makepat with 
makepat(‘‘*The quick”, * *) 


a template like that in Figure 3 would be returned. However, 
this time the template would stop with the “e” LITCHAR 
because we passed makepat( ) a space as the input string 
terminator. A call to 


makepat(‘“‘a[0 — 9].*[*v]$”,* \0’) 


returns a pointer to the template shown in Figure 4 (page 56). 


tok: 
1char: 
_ string: 
next: 


tok: 
1 char: 
string: 
next: 


tok: 
1char: 
string: 
next: 


ichar: 
string: 
next: 





oS | | Figure 3 
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| Debugging Aids 


| are pr_tok( ), pr—line( ), insert( ), and delete( ); all are in 
| tools.c. 


| \Ox(two hex digits) 


Matchs( ) looks for an expression on only one input line. 
Consequently, it has to be called several times, once for each 
line in the input file. Three arguments are required: the first 
is a pointer to the line being searched, the second is a pointer 
to a pattern template (returned by a previous call to make- 
pat( ), and the third determines whether matchs( ) will re- 
turn a pointer to the beginning or to the end of the matched 
pattern (0 for a pointer to the beginning, | for the end). 

Consider the program fragment: 


#Hinclude “‘tools.h” 

TOKEN *template; char *ptr; 

template = makepat(“456”, NOPE 

ptr = matchs(‘‘1234567890”,, template, 0); 
ptr matchs(‘‘1234567890”, template, | ); 
ptr = matchs(“abcdefghij”, template, 1); 


| 


The call to makepat( ) returns a pointer to a pattern tem- 
plate representing the string “456.” This template will be 
three elements long, one element for each character in the 
string, and all three elements will be of type LITCHAR. The 
first call to matchs( ) will return a pointer to the “4” (be- 
cause its third parameter is zero). The second call to 
matchs( ) will return a pointer to the “6” (because the third 
parameter is |). The third call to matchs( ) returns zero 
because the string “456” doesn’t exist in the string 
‘“abcdefghij.”” 

A simplistic version of grep—using only gets( ), make- 
pat( ), and matchs( )—is shown in Figure 5 (page 57). This 
version prints all input lines that match a pattern found on 
the command line. No attempt at any sort of error checking 
is made in this example, so it’s not a very practical program. 
It does illustrate how makepat( ) and matchs( ) may be used 
in areal program. 






Four routines are included here for use in debugging. These 


Pr_tok( ), when passed a pointer to a linked list of TO- 
KENs, will print out the list to stdout. You can use pr_tok( ) 
to monitor the progress of amatch( ) as it works and to see if 
the expression is translated correctly to begin with. 

Pr_line( ) prints out one line of text to stdout; any non- 
printable characters are represented as numbers in the form: 


Insert( ) puts a character into a string at a place pointed to 
by its “str” parameter. Delete( ) takes the character out 
again. 


Some Implementation Notes 

In the course of bringing up grep on my own system, I ran 
into a few problems worth mentioning. First, depending on 
which compiler you use, getting the expression from the 
command line may be unexpectedly difficult. The com- 
mand-line parser for Aztec C II (the compiler I used on this 
version) doesn’t allow quoted strings; that is, an argument of 
the form | 
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grep “this is a single argument” foo.bar 


will be broken up into seven (rather than three) arguments 
by the compiler. So I modified the command-line parser in 
the module croot.c to accept quoted strings. 

While the BDS C compiler does give you quoted strings, 
pitfalls exist here too. As it parses the command line, BDS 
strips off the quotes. Because BDS wild card expansion is 
done with a call to wildexp( ) inside of the program proper 
(instead of inside the command-line parser where it be- 
longs), wildexp( ) can’t differentiate between the quoted ar- 
gument and the normal arguments: it doesn’t have any 
quotes to work with. Consequently, it will try to expand the 
regular expression if the expression has an * or a ? in it. 

I got around this problem in a BDS version of grep by get- 
ting the regular expression from the command line before 
calling wildexp( ). I then replaced the argv entry, which point- 
ed at the expression, with a pointer to a null string and called 
wildexp( ). You could also try to call wildexp( ) from inside 
the command-line parser itself. Since the parser is written in 
assembly language and wildexp( ) is in C, I didn’t try this 
(though it would be a permanent solution to the problem). 

A similar problem can be found in microshell. Microshell 
Supports quoted strings, but a backslash inside a quoted 
string is treated as a special character. You need to double 
the backslash to pass it through to grep (i.e., use \\s instead 
of \s; and \\\\ instead of \\). One Saving grace is that mi- 
croshell lets you pass tabs through unmolested. 

One final difficulty. You may use grep as a filter if you 
like: if you are running microshell or some other environ- 
ment that supports pipes, you may use grep as a general 
purpose filter, stripping out unwanted material from the in- 
put stream and passing the modified stream on to another 





program. The problem is what happens to end-of-line termi- 
nators on their way through the pipe. 

CP/M requires a carriage return, line feed combination at 
the end of line. C, however, wants a single newline character 
(\n). Consequently, when getc( ) sees a CR, it echoes it as a 
CR-LF (so the screen looks nice) and then turns it into a \n: 
on output, putc( ) will turn the \n back into a CR—LF. 

This is fine until you use the output of one program as the 
input of another. The next program will see the CR-LF, echo 
it as CR-LF-LF, and map it to a \n\n (one \n for the CK. 
another for the LF). The output from the second program 
will have a CR-LF—CR-LF at the end of every line: instant 
double spacing. If you go through another layer of pipe you 
will get CR-LF—CR-LF—CR-LF-CR-LF at the end of each 
line, and so on. 

A solution would be to have getchar( ) work as described 
above and have getc( ) ignore the LF character entirely (not 
pass it through to the program). The BDS C compiler doesn’t 
lend itself to this change because its I/O library has the two 
input routines functionally reversed (i.e., getc( ) calls get- 
char( ), which is backwards from Unix). You could also use 
the BDS version 1.5 raw I/O routines, but then your code 
would be even more nonstandard. Alternately, you could do 
all your character input from the console with direct bdos( ) 
calls. 


Conclusion 

In spite of the few implementation problems I encountered, 
grep remains an extremely useful program. It has saved me 
hours of rooting around in modular C programs looking for 
misspelled subroutine names. Its cross-referencing capability 
has also proved invaluable. When I get a new C compiler, the 
first thing I do is use grep to make a cross reference of the 


| | 
tok: tok: fo 
1 char: _ 1char: 6 
string: 0123456789" string: io 
next: next: : 






tok: 
1 char: 
string: 
next: 


tok: 
1char: 
string: 
next: 


HA: 
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Figure 4 
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| runtime library sources. Using this cross reference, it’s easy to 
| find the source code for the particular library subroutine that 
| doesn’t seem to be working correctly . The addition of 
niarcc , — ~~} matchs( ) to the RED editor has made it a much nicer editor, | 
a — — |: giving RED not only an extended search capability but also a 
char *argv{ J; powerful global substitution capability. Once you’ve used reg- 
(Mex | ular expressions in an editor, you won’t settle for anything 
- | TOKEN “template: else. I hope that you find this program as useful as I have. 





_ ehar = ste 132); | 
Cs | Copies of grep, along with the C source code, are available 
_ template = makepat( argy(1], ‘\O"); | from the author at the above address for $35.00 (+ tax ifa 
- while(— gets( str) != NULL) | California resident). (Copies provided on a standard, IBM 
ss if(matches(str,template,O))  ~—*«|_ format, single density, 8-inch, CP/M-compatible floppy 
printf(“‘%s\n"", str); | disk or on DS/DD, IBM-PC, PCDOS-Compatible, 54-inch 
| | disks). DD) 

Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 195. 


Figure 5 





GRE P. C (Listing Continued, text begins on page 50) 
Listing One 


TOOLS.H: Various #defines and typedefs for GREP 


Copyright (c) 1984 Allen Holub 
Copyright (c) 1984 Software Engineering Consultants 
P.O. Box 5679 
Berkeley, CA, 94/705 


All rights reserved. 


* 

ok 

* 

* 

* 

a 

* 

* 

* 

* This program may be copied for personal, non-commercial use 
* only, provided that this copyright notice is included in all 
* copies and that this program is not modified in any way. 
** Copying for any other use without previously obtaining the 
* written permission of the author is prohibited. 

* 

* 

* 

* 

* 

* 


Machine readable versions of this program may be purchased 


for $35 from Software Engineering Consultants. Supported 
disk formats are CP/M 8" SS/SD and PCDOS (v2.x) 5-1/4" DS/DD. 


Baers 0 a Ng a es ema es atm ir se le “re neat Pome eset Se Chemie See Soma ee oe pe eae eee, eee ee aN 


/ 

/* 

* #defines for non-printing ASCII characters 

* / 

#define NUL 0x00 * “@ * / 

#define SOH 0x0! [Rk * / 

#define STX 0x02 [#°*8 * / 

#define ETX 0x03 peo Oe * / 

#define EOT Ox04 /* “D * / 

#define ENQ 0x05 Les * / 

#define ACK 0x06 PRE * / 

#define BEL 0x07 /* *G * / 

#define BS 0x08 /* “H * / 

#define HT 0x09 ;# TI * / 

#define LF Ox0a foe sek ** / 

#define NL LF 

#define VT Ox0b /* “XK * / 

#define FF OxOc fe 71, * / 

#define CR OxOd /* “M * / 

(Continued on next page) 
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GRE, P. C (Listing Continued, text begins on page 50) 


Listing One 

#define SO Ox0e Lorn sa f 

#define SI Ox0f fF=20) */ 

#define DLE 0x10 Wise ef 

#define DCl Oxl1l LP") mf 

#define DC2 Ox12 [EeSR m7 

#define DC3 0x13 fe OS ef 

#define DC4 Ox14 PR LF mF 

#define NAK Ox15 Fee * / 

#define SYN Ox16 [RAY * 

#define ETB Oxl17 /* °W * / 

#define CAN Ox18 perk *] 

#define EM 0x19 f PTS 7 

#define SUB Oxla Peas 2 * / 

#define CPMEOF SUB 

#define ESC Oxlb Sout * / 

#define FS Oxlc PR ON id 

#define GS Oxld fROAS * / 

#define RS Oxle [BLES * / 

#define US Oxlf [Re ree 

#define DEL Ox7£ 7 * DEL ay 

#define TRUE 1 

#define FALSE 0 

{> Definitions of meta-characters used in pattern matching routines, 
* LITCHAR & NCCL are only used as token identifiers; all the others 
** are also both token identifiers and the actual Symbol used in 
** the regular expression 
af 

#define BOL ae 

#define EOL ‘es 

#define ANY res 

#define LITCHAR 'L' 

#define ESCAPE '\\' 

#define CCL /* Character class: aswel ey 


Ee 
#define CCLEND Sieg 
#define NEGATE '*! 
#define NCCL To /* Negative character class Be = / 
#define CLOSURE '*! 
#define OR_SYM '|' 


#define CLS SIZE 128 /* Largest permitted size for an expanded 
** character class. (Ie. the class [a-z] 
** will expand into 26 symbols; [a-z0-9] will 
** expand into 36 symbols.) 


* / 

/* 
* Tokens are used to hold pattern templates. (see makepat() in 
** tools.h 
* / 
typedef struct token{ 

char tok; 

char lchar; 

char *string; 

struct token *next; 


} TOKEN; 
#define TOKSIZE sizeof (TOKEN) 


(Continued on page 60) 
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The one and only adult Lisp system for CP/M users. 


Waltz Lisp is a very powerful and complete implementa- 














tion of the Lisp programming language. It includes C-86 Computer Innovations ....... $395 319 
_ features previously available only in large Lisp systems. In routes sg by Mark Williams CB a 
; ; . attice Der. i). hoa 500 29 
~ fact, Waltz is substantially compatible with Franz (the Lisp Professional BASIC Morgan Computing 345 295 







707 ec” 2 running under Unix), and is similar to MacLisp. Waltz is 
HES ee oto asrer-. heal perfect for Artificial Intelligence programming. It is also 
arama - most suitable for general applications. 


ADA-86 + Tools Janus........... 700 #8499 







Call for Microsoft and Digital Research Products. 


j character strings. Full string operations including fast matching/extraction. © Flexibly implemented random file access. 

g ¢ Binary files. © Standard CP/M devices. ® Access to disk directories. ¢ Functions of type lambda (expr), nlambda 

Q (fexpr), lexpr, macro. ® Splicing and non-splicing character macros. ® User control over all aspects of the interpreter. 

B ¢ Built-in prettyprinting and formatting facilities. ¢ Complete set of error handling and debugging functions including 

Z\ user programmable processing of undefined function references. ® Virtual function definitions. © Optional automatic 
loading of initialization file. ¢ Powerful CP/M command line parsing. ® Fast sorting/merging using user defined 
comparison predicates. * Full suite of mapping functions, iterators, etc. © Assembly language interface. * Over 250 
functions in total. © The best documentation ever produced for a micro Lisp (300+ full size pages, hundreds of 
illustrative examples). 


Waltz Lisp requires CP/M 2.2, Z80 and 48K RAM (more recommended). All common 5" 
and 8"' disk formats available. 


Version 4.4 
i eon 7169" 


written in Waltz Lisp.) 


RO ODE *Manual only: $30 (refundable with sora All 

_. foreign orders: add $5 for surface mail, $20 for 
SE ee airmail. COD add $3. Apple CP/M and hard sector 
15930 SW Colony Pl. formats add S$] . 


Portland, OR 97224 mel Hee -800-LIP-4000 Dept #11 


Unix’ Bell Laboratories. ; 
CP/M* ua hesor Corp. In Oregon and outside USA call 1-503-684-3000 












«** ‘*€’’ Language Starter Kit *** 






















List Ours 


DeSmet C Compiler w/Debugger $159 145 
Windows For C Creative Solutions 150 119 
C Programming Language 

book by K&R 25° 2 


Package Consists of: 


















Retail $334. Priced Separately $284 
Our Special Package Price! $269 





Greenleaf Utilities available for DeSmet C. 
Call for Details and Prices. 















We have in-staff APL expertise! 
**** STSC APL*Plus/PC:”"** 


This powerful, interactive, fourth-generation 

language includes a tutorial, help system 

and useful extensions. Comes with plug-in 
APL character generator chip. 


Retail $595 Our Normal Price $540 


Special Sale Price! $469 
Send for complete demonstration package $5 
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Re-ink any fabric ribbon for Mac Switch lets you share UTILITIES: 
less than 5¢. Extremely simple your computer with any two C Functions Library by Greenleaf... 175 159 
operation: We have a MAC peripherals (serial or Btrieve by SoftCraft............, 245 205 
INKER for any printer. parallel). Ideal for word SEY GREEREa ses fio iia 
° ORE UP ls A Me ee od! Se fear iiguatteg erie cel. ph eM ie et lea ote 3 tase sk ee tle tae Cae ee Se ie : Ww 
Lubricant ink safe for dot processors—never type an Trace-86 by Morgan Computing.... 125 115 
matrix printheads. Multi- address twice. Ask us for OPT-TECH Sort 
. . : : High Performance Utility .......... 99 87 
colored inks, uninked brochure with tips on how to Profiler by DWB & Associates ...... 175 149 
cartridges available. Ask for share two peripherals with AKA ALIAS by Soft Shell Technology 60 57 
brochure. Thousands of MAC SWITCH. Total Plink-86 Overlay Linkage Editor... ... 395 aan 
ss ah . . Panel Screen Design/Editing by Roundhill 350 25 
satisfied customers. satisfaction or full refund. FirsTime /ntelligent C Text Editor 
$5495 4 $9900 by Spruce | 295 CALL 
Halo Color Graphics for Lattice, C|-86 200 159 


Windows For C by Creative Solutions 150 119 







*** A SOLID GOLD VALUE *** 


CodeSmith-86 Debugger 
Version 1.8 by Visual Age 












Retail $145, Our Normal Price $129 








Special Sale Price! $109 





Prices are subject to change without notice. 


Account is charged when order is shipped. 


in sii CHARGE 


1-800-336-1166 


Programmer's Connection 
281 Martinel Drive 

Kent, Ohio 44240 

(216) 678-4301 (In Ohio) 


Dee ues Serving Programmers’ 





C=imputer 
Order Toll Free 1-800-547-3303 Friends 


6415 SW Canyon Court 
Suite #10 
Portland, Oregon 97225 
ee ri (503) 297-2321 
x WV S it h 
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GRE P. C (Listing Continued, text begins on page 50) 
Listing One 


/* 
- An absolute maximum for strings. 
* / 

#define MAXSTR a 

* 
= 
extern char *matchs(); 

extern int amatch(); 

extern char *in string(); 

extern TOKEN *oetpat(); 

extern int esc(); 

extern int dodash(); 

extern TOKEN *makepat(); 

extern int unmakepat(); 

extern int insert(); 

extern int delete(); 

extern int isalphanum(); 

extern int stoupper(); 

extern int pr_tok(); 

extern int pr_line(); 

extern int max(); 


Listing Two 


Copyright (c) 1984 Allen Holub 


FeO 7 Box 5679 
Berkeley, CA, 94705 


All rights reserved, 


This program may be copied for personal, 


H#eeEHHHHHHHKH HH HH HK 


Ht HH & 


#include "a:stdio.h" 
#include "b:tools.h" 


/* 

* This module contains the various routines needed by grep 
* to match regular expressions. Routines are ordered 

** alphabeticaly. 

* / 

int amatch( lin, pat, boln ) 

char *lin, -*boin: 


TOKEN *pat; 
{ 


60 


TOOLS.C: The expression parser used by grep. 


Copyright (c) 1984 Software Engineering Consultants 


TR NRA a a ae ae ae ee cal aS Sa ee a ce Ss St Se at Ce) Set Ca amy ahaa oS Sica! ae eee ie ee RS PR a 


/* Maximum number of characters in 


End Listing One 


non-commercial use 
only, provided that-this copyright notice is included in all 
copies and that this program is not modified in any way. 
Copying for any other use without previously 
written permission of the author is prohibited. 


the 


Machine readable versions of this program may be purchased 
for $35 from Software Engineering Consultants. 
disk formats are CP/M 8" SS/SD and PCDOS Cv¥2.x2%¥ 5421/4" DS/DR. 


Supported 
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Scans through the pattern template looking for a match 
with lin. Each element of lin is compared with the template 
until either a mis-match is found or the end of the template 
is reached. In the former case a 0 is returned; in the latter, 
a pointer into lin (pointing to the last character in the 
matched pattern) is returned. 


x e£HH HK H 


Laon" is a pointer to the line being searched. 

“Sat. is a pointer to a template made by makepat(). 

"boln" is a pointer into "lin" which points at the 
character at the beginning of line. 


we 


*% & 


/ 
register char *bocl, *rval, *strstart; 
if pak ea. 0) 
return (0); 
Stranart = -lin; 


while -( pat. ) 
{ 


if (pat->tok == CLOSURE && pat—>next) 
{ 
/* 
* Process a closure: 
* First skip over the closure token to the 
* object to be repeated. This object can be 
* a character class. 
+] 
pat = pat->next; 
fx Now match as many occurrences of the 
* closure pattern as possible. 
ay 


bock = 2273 


while ( *lin && omatch(&lin, pat): ) 


5 


'Lin' now points to the character that made 
made us fail. Now go on to process the 

rest of the string. A problem here is 

a character following the closure which 
could have been in the closure. 

For example, in the pattern "la—-z]*t" Gwhickh 
matches any lower-case word ending in at), 
the final 't' will be sucked up in the while 
loop. So, if the match fails, we back up a 
notch and try to match the rest of the 
string again, repeating this process 
recursively until we get back to the 
beginning of the closure. The recursion 
goes, at most, two levels deep. 


KRHeHR HHH KH HHH HH 


if (pat = pat->next) 


while €-Becl: <=-lin ) 
{ 


if (rval = amatch(lin, pat, boln) ) 


{ 


/* success */ 
return(rval); 


} 
else 
--lin; 


return (0); /* match failed */ 
(Continued on next page) 
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GRE P. C (Listing Continued, text begins on page 50) 
Listing Two 


} 
} 
else if ( omatch(&lin, pat, boln) ) 
{ 


pat = pat-—->next; 


return (0); 


Pn — 
+ 


Note that omatch() advances lin to point at the next 
character to be matched. Consequently, when we reach 
the end of the template, lin will be pointing at the 
character following the last character matched, 

The exceptions are templates containing only a 

BOLN or EOLN token. In these cases omatch doesn't 
advance, 


So, decrement lin to make it point at the end of the 
matched string. Then, check to make sure that we haven't 
decremented past the beginning of the string. 


A philosophical point should be mentioned here. Is $ 

a position or a character? (Ie. does $ mean the FOL 
character itself or does it mean the character at the end of 
the line.) I decided here to make it mean the former, in 
order to make the behavior of amatch() consistent. If you 
give amatch the pattern “$ (match all lines consisting only 
of an end of line) then, since something has to be returned, 
a pointer to the end of line character itself is returned. 


HHeHHeKHH HHH HH HHH HH H 


One final point. If you use a macro instead of a real 
subroutine to define max(), then take the --lin out of 

the macro call to avoid side-effects (lin being decremented 
twice). 


Ho VE HM He 


/ 


return. ( max(stretart™ , =-Lin).)s 


a a a aa ae eee arn ee ae RN SY ee ae a oe * / 
delete( ch, str ) 
int Cis 
register char *strs 
ie Delete the first occurrence of character from string 
ms moving everything else over a notch to fill the hole. 
ey 
ch’ &=. Oxf f+ 
while ( *str.&@:-*str- te “ch) 
Str++3 
while ( *str_ ) 
{ 
str = *(str+1)-; 
Str++; 
} 
} 
eg Sahar pnt cae ate eR oe AE ROONEY Pe ag ee * / 
(Continued on page 64) 
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Lahey Computer Systems is pleased to announce F77L 
the complete implementation of the ANSI FORTRAN 77 
Standard for the IBM PC and IBM compatibles. 

With fast compile and execution speeds, specific diagnostics 
at compile and runtime, F77L meets all the needs of program- 
mers who recognize FORTRAN as the workhorse of computer 
languages. In addition to meeting the '77 Standard, F77L 
features include: 

@ Many IBM H features: $¢ in a name, 8 character names. Types: 

LOGICAL*1, REAL*8, INTEGER*&2, COMPLEX* 16. 

@ INCLUDE, OPTION, and CHAIN statements. 

@ Optional checking: subscript, subprogram class, argument and 
alternate return count. 

@ Execution error messages include text and asubprogram/line-number 
traceback. 

@ COMMONS and subprogram units may be as large as 64K. 

© Source file is free format: comments begin with asterisk, continuation 
lines begin with ampersand. 

@ Complete and easy to follow 250 page manual. 

@ Telephone user support and newsletter with updates. 

From just a partial list of our features you can see that F77Lisa 
powerful tool that will improve the productivity of every 
programmer. 

When you purchase the F77L you are buying more than a 
language system; you are also buying LCS’s commitment to 
FORTRAN programming. We have specialized in FORTRAN 
since 1969 and were the first to implement FORTRAN 77. 
Because we sell only one product, our customers know that our 
total effort is directed towards the development of F77L and the 
continuing service of our users. 

If you are serious about FORTRAN programming then you 
owe it to yourself to compare Lahey Computer Systems’ F77L to 
the competition. 

Complete package: $477 Visa/MC 
To order or for more information call or write: 


I Lahey Computer Systems, Inc. 





904 Silver Spur Road, Suite 417 
Rolling Hills Estates, CA 90274 = (213) 541-1200 
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“An indispensable 
tool for librarians 


and media specialists building 
computer collections...Provides 
especially useful information on build- 
ing a core or reference collection, but 
also offers advice on how to 
find the right book for personal use’ 
— Booklist. 8¥2 x 11. Paper $9.95. 
ISBN 0-394-72273-6. LC 83-43141 










PTET TET CATER BALA! 


Tras e RASA 


TTT ty 





THE USER’S GUIDE TO 
1200 MICROCOMPUTER 
BOOKS, 1984 EDITION 


by CRIS POPENOE 


PANTHEON BOOKS 


201 East 50th Street, 
New York, N.Y. 10022 
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Six Times Faster! 


Super Fast Z80 Assembly Language Development Package 


Z80ASM 


e Complete Zilog 
Mnemonic set 

e Full Macro facility 

@ Plain English error 














@ Conditional assembly 

e Assemble code for 
execution at another 
address (PHASE & 


messages DEPHASE) 
e One or two pass e Generates COM, HEX, 
operation or REL files 


e Over 6000 lines/minute COM files may start at 

e Supports nested other than 100H 
INCLUDE files © REL files may be in 

e Allows external bytes, Microsoft format or 


words, and expressions Ha ie ates 
(EXT1 * EXT2) e Separate ; 
© Labels significant to 16 & COMMON address 


spaces 
characters even on P 


axternate(SLA Format. “* .CceR symbol defini- 
Only) tions from the console 


e Integral cross-reference e Flexible listing facility 


e Upper/lower case includes TIME and 
: eye DATE in listing (CP/M 
optionally significant Plus Only) 














For more information or to order, call: 


1-800-833-3061 


In PA, (412) 282-0864 


Or write: SLR SYSTEMS 
1622 North Main Street, Butler, Pennsylvania 16001 


Circle no. 63 on reader service card. 


SLRNK 


® COM may start at 
other than 100H 

e HEX files do not fill 
empty address space. 

e Generate inter-module 
cross-reference and 
load map 

e Save symbol table to 
disk in REL format for 
use in overlay 
generation 

® Declare entry points 
from console 

e The FASTEST Micro- 
soft Compatible Linker 
available 









e Links any combination 
of SLR format and 
Microsoft format REL 
files 

e One or two pass 
operation allows output 
files up to 64K 

e Generates HEX or COM 
files 

e User may specify PROG, 


DATA, and COMMON 
loading addresses 
] 
Pa 


ee ele 
Ui Ee t/g) 
ot aAow 
e Complete Package Includes: Z80ASM, SLRNK, SLRIB 
- Librarian and Manual for just $199.99. Manual only, $30. 
e Most formats available for Z80 CP/M, CDOS, & TURBODOS 
e Terms: add $3 shipping US, others $7. PA add 6% sales tax 


L 











































R__Systems— 












GRE P. Cc (Listing Continued, text begins on page 50) 
Listing Two 


int dodash(delim, src, dest, maxccl) 
int delim, maxccl; 
char **srce, *dest;: 
{ 

/* Expand the set pointed to by *src into dest. 

* Stop at delim. Return O on error or 

* size of character class on success. Update *src to point 

* at delim. A set can have one element {x} or several 

< elements ( {abcdefghijklmnopqrstuvwxyz} and {a-z} 

* are equivalent ). Note that the dash notation is expanded 

* as sequential numbers. This means (since we are using the 

* ASCIT- character get) that a=-Z will contain: the entire alphabet 

* plus the symbols: [\]*_* . The maximum number of characters 

. in a character class is defined by maxccl. 

*/ 

register char *dstart; 

register int k, at_begin; 

char *sptr; 


dstart = dest; 
Satria “ere: 
at negin:-e «1s 


while ( ¥*sptr && (*sptr != delim) && (dstart-dest < maxccl) ) 


{ 
if ( *sptr == ESGAPE ) 


*dest++ = esc(&sptr); 
sptr++; 

else Tit *e0 te feo") 
*dest++ = *sptr+4; 


else if ( at_begin | | *(sptr+l) == delim ) 
*destt+t+ = '-'; 


else@:tf (eC aeptr 1.) its *(sptr+l) ) 
Sptr++;3 


fort R=* Ceptre2) 


SR <= Faeptr ss) 
*dest++ = k; 


sptr++; 
} 
else 


{ 
} 


at begin = 0; 


return(0Q); 


} 


*dest++ = '\000' ; 
‘src= -sptr 
return (dest - dstart); 
} 
PO nae eee a a Ne ee re Raat Oe ae eee 
int esc(s) 
char KR S 
64 


Peet tera #7 
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register int rval; 


/* Map escape sequences into their equivalent symbols. Returns the 
* Correct ASCII character. If no escape prefix is present 

* then s is untouched and *s is returned, otherwise **¥s 

* is advanced to point at the escaped character and the 

* translated character is returned. 


*/ 


if ( **s° f= ESCAPE ) 
{ 


cs 


rval = *¥*s; 
} 
else 
{ 
: (*s)++; 
switch( toupper(**s) ) 
{ 
case '\000': rval = ESCAPE; break; 
case 'S': yada TPS break; 
case 'N': ryvai = '\n'..3 break; 
case 'T': eye ae AE's break; 
case ‘'B': rvalto=""\b" ss break; 
case 'R': Yvatoe '\r* os break; 
default: Pwe bose Meg break; 
} 
} 
return (rval); 
} 
fe. Soe i ee be kao epee se eh ee ee Be * / 
TOKEN *getpat( arg ) 
char *arg; 
{ 
i* Translate arg into a TOKEN string 
*y 


return ( makepat(arg, '\000' ) ); 


fie Sage dee a + eee ee es a ee * / 
ineertl eh, str’) 
int ch;_ 
register char *BCr ; 
{ 
/* Insert ch into str at the place pointed to by str. Move 
* everything else over a notch 2 
* / 
register char *DD;3 
bp,.= str3 
while (*str) /* Find the end of string * / 
Str + 5 
do /* Move the tail over one notch */ 


{ 
*Cgtr+1) = "str; 
str--3 


} while (str >= bp); 


*bp = ch; /* Put the char in the hole. * / 
} 
eo Sok i a ee ee ses + ce et * / 
char *in string( delim, str ) 
register int delim; 


(Continued on next page) 
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GR EP. c (Listing Continued, text begins on page 50) 
Listing Two 





register char ReiT s 
{ 
/* 
=~ Returna@ pointer £6 delim if it ‘ts:in: the: strings-0. af 40 ie nor: 
x} 
delim &= Ox/7f; 
while (¥*str && *str != delim) 
Str+t+; ‘ 
feturn: (Fate 7 str oe Oo 3s 
} 
ACS Ra a eee es en eck te = ae eee peace * / 
int isalphanum(c) 
int co: 
{ 
/* Return true if c is an alphabetic character or digit, 
= false otherwise. 
*/ 
returat ("a's 6. 2846 ce ste") 
CR Re OF BG Ci ee LZ 
6 ee est Bie ee "3 
); 
} 
GS Be co oki epitaph sae * / 
TOKEN *makepat(arg, delim) 
char *arg; 
int delim; 
{ 
/* Make a pattern template from the string pointed to by arg. 
** Stop when delim or '\000' or '\n' is found in arg. 
* Return a pointer to the pattern template. 
* 
* The pattern templates used here are somewhat different 
* than those used in the book; each token is a structure 
* of the form TOKEN (see tools.h). A token consists of 
* an identifier, a pointer to a string, a literal 
a character and a pointer to another token. This last is 0 if 
* there is no subsequent token. 
x 
* The one strangeness here is caused (again) by CLOSURE which 
* has to be put in front of the previous token. To make this 
¥ insertion a little easier, the 'next' field of the last 
¥ token in the chain (the one pointed to by 'tail') is made 
* to point at the previous node. When we are finished, 
* tail->next is set to 0. 
ay 


TOKEN *head, *tail; 
TOKEN *ntok; 


char buf [CLS SIZE]; 

int error; 

/* Check for characters that aren't legal at the beginning 
XK 


of a template. 


wes 


if (*arg=='\0' 


|| *arg==delim || *arg=='\n' || *arg==CLOSURE) 
return(0Q); 


(Continued on page 68) 
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Ee A 


tt LEBEL A LE LLL 


seapectey eee PRIA IN A NC A: A OER ID 


RED 





edward k. ram 





FULL SCREEN EDITOR 
with 
FULL SOURCE CODE in C 


for 


CP/M 68K or CP/M 80 


e RED is a powerful yet simple full screen text 
editor for both programmers and writers. 





e RED features 17 commands including block 
move, block copy, search and substitute. 


¢ RED comes with ful/ source code in 
standard C. RED works as is with the 


BDS C, Aztec CII and Digital Research 
Compilers. 


e RED supports a// features of your terminal. 
You tailor RED to your terminal with an 
easy-to-use configuration program. 


e RED handles files as large as your disk. 


e RED is guaranteed. If for any reason you 
are not satisfied with RED, your money will 
be refunded promptly. 


Price: $95. 


Call today for more valuable information: 
(608) 231-2952 


To order, send a check or money order to: 
Edward K. Ream 
1850 Summit Avenue 
Madison, Wisconsin 53705 
Your order will be mailed to you within one week. Sorry, I can 
not handle credit cards. Please do not send purchase orders 
unless a check is included. RED is distributed only on 8 inch 


CP/M format disks, but other disk formats are available 
through third parties. 


Dealer inquiries invited. 





Including a new dynamic debugger 
Still the choice of professionals 


¢ Compiler option to generate special 
symbol table for new dynamic 
debugger by David Kirkland. (With the ; Bu 
e New | fil h 
debugger, the distribution package M1, HOPE SHE SORFCN COREE: 
now requires two disks.) 






















e Clink option to suppress 
warm-boot 


e New, fully-indexed 180 page manual 


* Takes full advantage of CP/M® 2.x, ¢" CPIM is a trademark of Digital 
including random-record read, seek Research, Inc. 
relative to file end, user number 
prefixes, and better error reporting. 


NES ay $120.00 IT’S HERE! 
V 1.46 ....$115.00 MONEY MATH 


(needs only 1.4 CP/M) e Uses BCD internal 


Other C compilers and e You choose from two types 
C related products of rounding. 
available .. . Call! ¢ Configurable exception 
TERMS: CHECK Bae ten 
z e Distributed with 1 igi 
MONEY ORDER, C.O.D., dase. SeaTac: 
CHARGE CARD for more or less 
HOURS: 9 am—5 pm 
Monday —Friday 


Me SOURCE 
(316) 431-0018 INCLUDED 949900 





representation. 


e Excess 64 exponents 








include $2.50 for postage and handling 


Circle no. 22 on reader service card. | 


Setting the standard in 
checkbook and budget management 
for home and office. 


eDisplay, add and change entries with full on-screen editing options ® 
Single entry systeme 
¢Unlimited categories 
eDivide entries between multiple categories ® 
eFlexible search and printing 
¢Commands in plain Englishe 
e@ 
For CP/M-80 2.2, MS-DOS and PC-DOS 
@ 
Only $74.95 ($54.95 without check printing capability) 
Visa and MasterCard accepted 
Dealer/Distributor/Bundling rates availabie 


CDE SOFTWARE 


2463 McCready Avenue ¢ Los Angeles, CA 90039 
Telephone: (213) 661-2031 
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GRE, P. C (Listing Continued, text begins on page 50) 
Listing Two 


error = 0; 

head = QO; 

tail = Q: 

while ( *arg && *arg != delim &8& Sarg fe \ye he. lerrore 
ntok ‘=-4alléct -TORSIZE: 34 a 
ntok->string = &(ntok-—>lchar); 
ntok->lchar = '\000'; 


ntok->next = QO; 
Sswitch(*arg) 


{ 
case ANY: 
ntok=>tok = ANY; 





break; 
case BOL: 
if (head==0) /* then this is the first symbol */ 
ntok->tok = BOL; 
else 
error .2<fs 
break; 
case EOL: 
if ( *(arg+l) == delim *(argt+l) == '\000' 
| *Carp+]) ea: "\nt 
ntok—>tok = EOL; 
else 
rT or s.iis 
break; 
case CCL: 
if (*(arg+l) == NEGATE) 
{ 
ntok->tok = NCCL; 
arg += 2; 
} 
else 
{ 
ntok—>tok = CCL; 
argt++; 


} 
error = dodash(CCLEND, &arg, buf, CLS SIZE) ; 


at Gerrer, f=) 95 

{ 
ntok->string = alloc( error -}; 
strcepy( ntok->string, buf ); 
error =:05 

} 

break; 


case CLOSURE: 


if ( head !=0 ) 
{ 
switch ( tail—>tok ) 
{ 
case BOL: 
case EOL: 
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case CLOSURE: 
return(0); 


default: 
ntok->tok = CLOSURE; 
} 


} 


break; 


default: 
ntok—>tok = LITCHAR; 
ntok->lchar = esc(&arg); 


b } 


if{ error | | ntok == 0 ) 


( 


unmakepat (head); 
return (0); 


} 


else if (head == 0) 
{ 


/* "This @s.the first. tote in‘ the ‘chain. 
+ / 


ntok->next =. 0; 
read. =. tail = ntoek*s 


} 
else if (ntok->tok != CLOSURE) 
{ 


/* Ingertvat end of list .Cafter. tail) */ 


tail->next = 
ntok->next- = tail; 
tail “= Atak: 


} 
else if(head != tail) 


{ 
: /* More than one node in the chain. Insert the 
, * CLOSURE node immediately in front of tail. 


my 


(tail-—>next)->next = ntok; 
ntok->next = tail; 


else 
{ 
/* Only one node in the chain, Insert the CLOSURE 
* node at the head of the linked list. 
e / 
ntok—->next = head; 
tail—>next = ntok; 
head = ntok; 
} 
argt+; 


} 


tail-—>next = 0; 
return (head); 


PO aa Sah Ba Ling gs a cl cS nln Se i * / 
char *matchs(line, pat, ret_endp) 
char *line; 


TOKEN + VALS 


(Continued on next page) 


Dr. Dobb’s Journal, October 1984 69 





GR EPC (Listing Continued, text begins on page 50) 
Listing Two 


int ret_endp; 
{ 

/* 

" Compares line and pattern. Line is a character string while 
* pat is a pattern template made by getpat(). 

* Returns: 

- 1. A zero if no match was found. 

* 2. A pointer the last character ; 

* satisfying the match if ret_endp is non-zero. 
7 3. A pointer to the beginning of the matched string 
‘i if ret endp is. 0; 

* 

* For example: 

* 

* matchs ("1234567890", getpat("4[0-9]*7"), 0); 

* 

* will return a pointer to the '4', while 

* 

* matchs ("1234567890", getpat("4[0-9]*7"), 1); 

* 

* will “return a pointer tothe. !'7". 

ey 
char Eval: *pgers 


Bptr-=.:line* 


while (*line) 


{ 


if (€-(rval = amatch( line, ‘pat, bptr)) == 60.:) 
{ 
line++; 
} 
else 
{ 
val: = ret, endp 1 .rval:s Line -; 
break; 


} 


return (rval); 


FO oe sais ES a ts os Oe mae UG a a ie eel eve. ake) ie PEN ea R eee oS reds. * / 
stoupper(str) 
char Str: 
{ 

/* 

> Map the entire string pointed to by str to upper case 

* Return. str. 

ay 

char *rval: 

TYatS: girs 


while (*str) 


fo (at eee Fete eR ERstr. <a he*") 
Settee Rl? a cTA) s 


Str++; 
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return(rval); 


Pe ee a a Le ee a ee * / 
int max(x,y) 
int x, v3 


Feruruct, Ceoe) ot ks EET 


Es AO ee eee ees ee os dee ee * / 
int omatch (linp, pat, boln) 
char ELA nD, * ROLKS 
TOKEN *pat; 
{ 
/* Match one pattern element, pointed at by pat, with the 
* character at **linp. Return non-zero on match. 
* Otherwise, return 0. *Linp is advanced to skip over the 
* matched character; it is not advanced on failure. The 
= amount of the advance is O for patterns that match null 
* strings, 1 otherwise. "boln" should point at the position 
* that will match a BOL token. 
ef 
register int advance; 
advance = -l; 


12° *¥i4as-) 
{ 


switch ( pat-—>tok ) 


{ 
case LITCHAR: 


if ( **linp == pat->lchar ) 
advance = 1; 
break; 
case BOL: 
if ( *linp == boln ) 
advance = QO; 
break; 
case ANY: 
if: C: #*4inp te \n*) 
advance = 1; 
break; 
case EOL: 
if ( **linp == '\n' ) 
advance = Q; 
break; 
¢asé CULL? 
if( in string (**linp, pat->string) ) 
advance = 1; 
break; 


case. NCCL: 
af (1 ta -steing:® (F* ida, pat->string) ) 
advance = 1; 
break; 


default: 
printf("omatch: can't happen\n"); 
} 


(Continued on next page) 
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GREP.C (Listing Continued, text begins on page 50) 
Listing Two 


if (advance >= 0) 
*linp += advance; 


return( ++advance ); 


Pe a Se oe ee re es ee a Be a aie a aa eee ee wae oe a eo * / 
pr_line(l1n) 
register char ein 
{ 
{* Print out ln, if a non-printing character is found, print 
* out its numerical value in the form "\Ox<hex number>". 
* Again, this is a debugging aid. It lets you see what's 
* really on the line, 
* / 


Bot (Cs *¥iy eta) 


Af. CCS ee ei BE. tig ee P57) ) 
putchar(*ln); 
else 
{ 
printtCh\ \Ox202xn" 10); 
if (Fin s= nr") 
putchar('\n'); 
} 
} 
} 
(Ot eo ee ge eee ee ee ee oe ee ee * / 
pr_tok(head) 
TOKEN *head; 
{ 
register char tery 3 
/* Print out the pattern template (linked list of TOKENs) 
* 


pointed to by head. This is a useful debugging aid. Note 
that pr_tok() just scans along the linked list, terminating 
on a null pointer; so, you can't use pr_tok from inside 
makepat() because tail->next points to the previous 

node instead of being null. 


co 


/ 


for (; head ; head = head->next ) 
{ 
switch (head-—>tok) 


{ 
case BOL: 


str. = "BOL"; 
break; 


case EOL: 
Strea"ROL": 
break; 


case ANY: 
Stra “ANY: 
break; 


case LITCHAR: 


str = "LITCHAR"; 
break; 


72 Dr. Dobb’s Journal, October 1984 





case ESCAPE: 
Stro-= "ESCAPE": 
break; 


case CCL: 
era a2 "GCL”: 
break; 


case CCLEND: 
str = "CCLEND"; 
break; 


case NEGATE: 
str = "NEGATE"; 
break; 


, case NCCL: 
stro="NCEL"s 
break; 


case CLOSURE: 
str = "CLOSURE"; 
break; 


default: 
str = "**** unknown ****"; 
} 


printf("Z-8s at: 0x2x,-", str, head); 


if (head->tok == CCL | | head->tok == NCCL) 
printf ("string =[%s]=, ", head->string ); 


else if (head->tok == LITCHAR) 


" 


printf("Ichar = %c, ", head->lchar); 


printf("next = Ox%x\n", head->next) ; 


} 


putchar('\n'); 


unmakepat(head) 
TOKEN *head; 


{ 


/* Free up the memory used for the token string * 


register TOKEN *old_head; 


while (head) 
{ 
switch (head->tok) 
{ 
case CCL: 
case NCCL: 
free(head->string); 
/* no break, fall through to default */ 


default: 
old_head = head; 
head = head->next; 


free(old_ head); 
break; 


End Listing Two 
(Listing three begins on page 75) 
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for Microsoft L80 
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EVERYTHING L80™ DOES AND MORE! 





LYNX™ LETS YOU USE ALL AVAILABLE MEMORY. 


You can create COM files that are 10K larger— 
without overlays—by replacing L80 with LYNX. 


LYNX™ IS A FULL OVERLAY LINKER 


Running twice as fast as its nearest competitor, 
LYNX is tree structured, multi-segmented and multi- 
leveled, with automatic or explicit overlay invoca- 
tion. You can run programs that are larger than avail- 
able memory. 


LYNX™ HAS BEEN HELPING MICROSOFT FOR- 
TRAN PROGRAMMERS FOR YEARS—NOW IT IS 
ALSO AVAILABLE FOR MICROSOFT BASIC AND 
AZTEC C.™ 


LYNX™ IS A QUALITY PRODUCT from the same 
company who offers you: 


¢ GrafTalk, the business graphics package for 
Micros 


¢ GRAPHICS development tools 
° 2780/3780, 3270, X.25 communications 
¢ MICRO TO MICRO communications 


ce REDDING @/OU]? INC. 


609 Main Street 
Ridgefield, CT 06877 
1-800-HELP RGI (203) 431-4661 
$250 Telex. 643351 


LYNX and GrafTalk are trademarks of Redding Group, Inc. L80 is a trademark of 
Microsoft. AZTEC C is a trademark of MANX Software Systems. 
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over “printf” source code, share FREEWARE, 
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dissect utilities like the DOS 2.x EXEC function, 


continue our ADA, ASM, C, FORTH, and LISP 
tutorials, and more! Sizzling ready-to-use source 
code included in each jam-packed issue (cur- 
rently 2 DS/DD disks per issue!). 
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orders and add $5 airmail for each issue.) 
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ABComputing 
Dept. 50, P.O. Box 5503, North Hollywood, CA 91616-5503 
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GRE. FP. C (Listing Continued, text begins on page 50) 
Listing Three 


ees cae one ee oe Bae eet oS es Ge RS ee 

* GREP.C: A generalized regular expression parser. 

* 

* Copyright (c) 1984 Allen Holub 

* Copyright (c) 1984 Software Engineering Consultants 

* PYyO*. Box S679 

* Berkeley, CA, 94705 

* 

= All rights reserved. 

* 

* This program may be copied for personal, non-commercial use 
* only, provided that this copyright notice is included in all 
* copies and that this program is not modified in any way. 
* Copying for any other use without previously obtaining the 
* written permission of the author is prohibited. 

* 

* Machine readable versions of this program may be purchased 
** for $35 from Software Engineering Consultants. Supported 
* disk formats are CP/M 8" SS/SD and PCDOS (v2.x) 5-1/4" DS/DD. 
* 

ne a ade eee a a a lc ate eam Re anemic 
*/ 


#tinclude "a:stdio.h" 
#include "b:tools.h" 


/ 
GREP 


Search a file for a pattern. 


The algorithm used here is essentially the algorithm in 
Software Tools in Pascal (pp 145f.). Though the routines have 
been changed somewhat to put them into good 'C'. See tools.c 
for details. 


This program is a healthy subset of the UNIX program of the same 
name. The differences are as follows: 


- the -s, -x and -b options are not supported. 
- the meta-characters ()+? are not supported. 


usage is: 
grep [-vclnhyef] [expression] files ... 


To compile with the Computer Inovations C86 compiler use: 


ccl grep 

cc2 grep 

cc3 grep 

cc4 grep 

ecl tools 

col. tools 

cc3 tools 

cc4 tools 

link grep tools,,,c86s2s.lib 


To compile with Aztec CII use: 


ccl -x4000 grep.c 

as grep.asm 

ccl -x4000 tools.c 

as tools.asm 

In grep.o tools.o a:libc.lib 


HHHKHHHKHHKeHHH HH KH HH HKHHHHHHMHHeHHHHHeH HH KH KH 


(Continued on next page) 
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GRE P. C (Listing Continued, text begins on page 50) 
Listing Three 


#define CPM 1 i* Comment this out if you're compiling 
* in an MSDOS system. 
* / 
#define MAXLINE 128 f® Maximum size of an input line 
%/ 
#define MAX _EXPR 64 {* The maximum number of regular 
* expressions separated by 
* newlines or | allowed. 
* / 
/* The following global flags are true if a switch was set 
* in the command line, false otherwise. 
* / 
int vilag, yf lag, ¢ilag, Lfilee,.26lae,; hftlac, fflag; 
main(argc,aregv) 
int arges 
char **argv; 
{ 
int i,j, Llineénum, count: 
int line[MAXLINE]; 
Fat numfiles; 
FILE *stream; 
int exprc; 





TOKEN *exprv[ MAX _EXPR]; 


TE Gatec <2) 
abort( pr_usage(l) ); 


Lf -3(- *areviid ae a") 
/* 
- Expand the switches on the command line 
* / 


expand _sw( argv[i++] ); 


if (+4 .e arge.) 
abort( pr_usage(1) ); 
} 


i> Get the pattern string. 
ay 
if ( (expre = get_expr( exprv, MAX EXPR, &argv[i++])) == 0 ) 
abort( pr_usage(2) ); 
numfiles = argc - i; /* Get number of files left to 
* process on the command line 
* / 


fprintf(stderr,"(c) Copyright 1984, Software Engineering Consultants\n" 
do 


{ 
if ( numfiles) 
{ 


stream = fopen( argv[i], "r"); 
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me 


2st See ee 





if (stream 


{ 


fprintfitstderr, “Can't open Zs\n" 


continue; 


else 
{ 
stream = stdin; 
} 
count =: 0; 
linenum = 1]; 


while ( fgets(line, MAXLINE, 


se NULLS 


argv[i]); 


stream) ) 


if: (-matchs(line-. exprvf i+) ) 


pr_match(linenum, line, argv[i], 1, 


numfiles); 


{ 
#ifdef CPM 
ef (ittias |) vytlag) 
stoupper(line); 
#else 
af <% yflag:) 
stoupper(line); 
#endif 
fort j.s: €zpre4-c-Sj" 52-0" yD 
{ 
{ 
count++3 
} 
else 
{ 


(Continued on next page) 
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‘ 


¥: eae aU 
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PaO PORT-A-SOFT 7 DISKETTE 
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(801) 226-6704 


DOWNLOADING SERVICE 

* Port-A-Soft provides the service of taking programs from a diskette 
that a customer's computer cannot read and transferring it toa 
diskette that the customer's computer can read. 

* Service available for approximately 250 diskette and tape formats 
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* Fast service. One day disk conversions. 72-hour tape conversions. 

* Competitive prices. Disk conversions as little as $5.00 per disk plus 
setup, shipping and handling 


DOWNLOADING SOFTWARE 
* Port-A-Soft sells programs that make it possible for the customer's 
computer to read diskettes for many other computer makes 
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DOWNLOADING HARDWARE 
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support the reading, writing, and formatting of diskettes for many 
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USERS: Enhance the power of your micro with programs not available 
in your diskette format, or with data such as Mailing lists, taken from 
9 track tapes. 

MANUFACTURERS AND DEALERS: Let us help you make that sale 
that is conditioned on converting the customers data to the new 
computer, or let us help you provide the sale clinching software that 
the customer needs to opt for your product. 

SOFTWARE PUBLISHERS: Expand your profits by letting us download 
your software to those unusual formats you cannot afford to support 
directly, or by porting your software to other operating systems and 
new markets 

USERS GROUPS: Get the public domain software you want in the 
format you want for your users group. 


PORT-A-SOFT 


423 E. 800 N. Orem, Utah 84057 (801) 226-6704 


Circle no. 50 on reader service card. 
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Source Code included 
for Compiler & Library 
New 8086 optimizations 
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CBUG SOURCE LEVEL DEBUGGER FOR SMALL C 


Break, Trace, and Change 
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Source code included 
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GR EP. C (Listing Continued, text begins on page 50) 
Listing Three 


pr_match(linenum, line, argv[i], 0, 
numfiles); 


} 


linenum++; 
entrants 


} 
1iC. Lilae: .&&* count’ ) 
break; 


) 


pr_count( numfiles, argv[i], count ); 
fclose (stream); 


} while (++i < argc); 


abort(); 
} 
RE Nias el tly lsiiin aap cal A Te Lane eae My a Neg, Co meee en i te hi aS eek fae AS sn) OF ee Le * / 
pr_count( fcount, fname, count) 
int fcount, count; 
char *fname; 
{ 
{* Process the -c flag by printing out a count and, 
* if more than one file was listed on the command line, 
* the file name too. 
* f 
if:-€ teflag) 
return; 


ef Cecount 31) 
priatfiC’ *s-i2s:7", fname) 


printft(. "Zd\n",.-count:.); 


eS iia ale any sk ae Neeley rae eu Lot a tee ey ee ae Pb) Sa * / 
pr_match(linenum, line, fname, match, numfiles) 
int linenum, match; 
char *line, *fname; 
{ 
}* If a match is found print the correct thing 
- as specified by the command line switches. 
=f 
char buf[ 80]; 
Gf. “Celias) 
FELuris 
af °¢ Cvflage && !match) | | (!vflag && match) ) 
{ 
if (!hflag && ( (numfiles > 1) || 1lflag) 
printfi("2462e-,tnane, “ifise 2 "\n" ste ys 
if (nflag) 
printf("Z03d:", linenum ); 
LEC Pi lae ) 


printf ( la’: Tine.) 3 
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pr_usage(num) 
int num; 


{ 


#ifdef DEBUG 
fprintf(stderr,"4d ", num); 


#endif 
fprintf(stderr,"usage: grep [-cefhlnvy] [expression] <files (athe os 
} 
Pi ce Se ee eee Se eee ae * / 
abort() 
{ 
exit(); 
} 
/¥oo 3225-5 sa = 5 5 ene nan 555 * / 
expand _sw( str ) 
char *strs 
{ 
/* Set global flags corresponding to specific switches 
** if those switches are set 
* / 
viltag = 0; 
cflag. =. 0; 
tiilag> = 03 
nflag = 03 
hilag-= 0; 
tfilag .=:.0; 
yfilag = 0; 


while (*str) 
{ 


switch ( toupper(*str) ) 


case '-': 
case 'E': | 
break; 
case "C's 
cflag =F; 
break; 
case 'F's: 
Eflag:=.1; 
break; 
case 'H': 
hflag =.1; 
break; 
case "E's: 
Tfilagis ts 
break; 
case 'N': 
nfilag = 1% 
break; 


(Continued on next page) 
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GRE P. C (Listing Continued, text begins on page 50) 


e e | 
Listing Three 
| 
case ‘'V': | 
VElagi ds | 
break; | 
| 
case 'Y': F 
yflag = 1; | 
break; | 
default: 
pr_usage(3); 
abort(); 
break; 
} 
Str++; 
} 
} 
Og TERED, PES RAE ap apes MOON Ay. PADRE RY. MB TEP. A) AV neta ERC oR oN REUSED teak gb ee DANTE BMRB ROMP ES. * / 
ijtadosor(. 1p, expr, max ) 
char ei s 
TOKEN **expr; 
Lat max; 
{ 
int found; 
TOKEN *pat; 
char *Op; 
found = 0; 
/* 
* Extract regular expressions separated by OR_SYMs from 
* lp and put them into expr. Extract only up to 
* max expressions. If yflag is true map string to upper 
* case first. 
* / 
ait yilagi} 


Stoupper( lp ); 
while (op. = 28) stringCOR SYM, ip) ) 
if(found <= max && (pat = makepat(lp, OR SYM)) ) 
, *expr++ = pat; 
found++; 
rs = ++0p; 
if (¢ pat == 0 ) 


goto fatal _err; 


} 
if (found <= max && (pat = makepat( lp, OR SIM))..9 
{ 


found++; 
*expr = pat; 


if’ €( pat == 0 ) 
{ 


(Continued on page 82) 
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C1 UNIX (or derived) 
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Vol. 1 1976 

The material brought together in this volume chronicles the 
development in 1976 of Tiny BASIC as an alternative to the 
‘finger blistering,’ front-panel, machine-language program- 
ming which was then the only way to do things. This is al- 
ways pertinent for bit crunching and byte saving, language 
design theory, home-brew computer construction and the 
technical history of personal computing. 

Topics include: Tiny BASIC, the (very) first word on CP/M, 
Speech Synthesis, Floating Point Routines, Timer Routines, 
Building an IMSAI, and more. 


Vol. 2 1977 

1977 found DDJ still on the forefront. These issues offer re- 
finements of Tiny BASIC, plus then state-of-the-art utilities, 
the advent of PILOT for microcomputers and a great deal of 
material centering around the Intel 8080, including a com- 
plete operating system. Products just becoming available for 
reviews were the H-8, KIM-1, MITS BASIC, Poly Basic, and NIBL. 
Articles are about Lawrence Livermore Lab’s BASIC, Alpha- 
Micro, String Handling, Cyphers, High Speed Interaction, 
1/O, Tiny Pilot & Turtle Graphics, many utilities, and even 
more. 


Vol. 3 1978 


The microcomputer industry entered its adolescence in 1978. 
This volume brings together the issues which began dealing 
with the 6502, with mass-market machines and languages to 
match. The authors began speaking more in terms of tech- 
nique, rather than of specific implementations; because of 
this, they were able to continue laying the groundwork in- 
dustry would follow. These articles relate very closely to what 
is generally available today. 

Languages covered in depth were SAM76, Pilot, Pascal, and 
Lisp, in addition to RAM Testers, S-100 Bus Standard Propos- 
al, Disassemblers, Editors, and much, much more. 


Put Dr. Dobb’s Under the Christmas Tree! 
Treat your friend (or yourself!) to Dr. Dobb’s Journal 


Bound Volumes 


Every Issue Available For Your Personal Reference. 


Vol. 4 1979 


This volume heralds a wider interest in telecommunications, 
in algorithms, and in faster, more powerful utilities and lan- 
guages. Innovation is still present in every page, and more 
attention is paid to the best ways to use the processors 
which have proven longevity—primarily the 8080/Z80, 
6502, and 6800. The subject matter is invaluable both as a 
learning tool and as a frequent source of reference. 

Main subjects include: Programming Problems/Solutions, 
Pascal, Information Network Proposal, Floating Point Arith- 
metic, 8-bit to 16-bit Conversion, Pseudo-random Se- 
quences, and Interfacing a Micro to a Mainframe—more than 
ever! 


Vol. 5 1980 

All the ground-breaking issues from 1980 in one volume! Sys- 
tems software reached a new level with the advent of CP/M, 
chronicled herein by Gary Kildall and others (DDJ’s all-CP/M 
issue sold out within weeks of publication). Software porta- 
bility became a topic of greater import, and DDJ published 
Ron Cain’s immediately famous Small-C compiler—reprinted 
here in fulll 

Contents include: the Evolution of CP/M, and CP/M-Flavored 
C Interpreter, Ron Cain’s C Compiler for the 8080, Further 
with Tiny BASIC, a Syntax-Oriented Compiler Writing Lan- 
guage, CP/M-to-UCSD Pascal File Conversion, Run-time Li- 
brary for the Small-C Compiler and, as always, even more! 


Vol. 6 1981 

Microcomputing was entering a technical maturity in 1981, 
while continuing to break new ground. This volume includes 
Dr. Dobb’s first all-FORTH issue and the first Dr. Dobb’s 
“‘Clinic’’ columns. There is continued coverage of CP/M and 
Small-C development, along with J.E. Hendrix's Small-VM 
and Santa Barbara Tiny BASIC for 6809—all here in one giant 
volume. 

Articles include: Pidgin—A Systems Programming Lan- 
guage, The Conference Tree, Write Your Own Compiler with 
META-4, several exciting Z80 utilties, North Star tidbits, and 
more! 
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GRE. EC (Listing continued, text begins on page 50) 
Listing Three 


fatal err: 
printf("Illegal expression\n"); 
exit(); 


} 


return (found); 


get _expr( expr, max, defexpr ) 
TOKEN *expr[]; 


int max; 
char **defexpr; 
{ 
FILE *stream; 
int counts 
char line[MAXLINE]; 
#ifdef DEBUG 
ant 3 
#endif 
L* Get regular expressions separated by | or newlines 
** either out of a file or off the command line depending 
* on whether the -f flag is set. The expressions are 
* converted into pattern templates (see tools.c) and 
* pointers to the templates are put into the array expr[ ] 
(which works similar to argv). 
* 
¥ Return the number of expressions found (which can be use 
* in a similar fashion to argc). 
#7 
cout." (Os 


if ( fflag ) 
{ 


/* 
7 Then *defexpr is the file name and expressions s 
mt be taken from that file. 
=f: 
if ( (stream = fopen(*defexpr, "r")) == NULL ) 
{ 
fprintf(stderr, "Can't open %s\n", *defexpr); 
abort(); 
} 
while ( (max - count) && fgets(line, MAXLINE, stream) 
{ 
count += do_or(line, &expr[count], max - count ) 
} 
fclose (stream); 
} 
else 
{ 
/* 
* *defexpr is the expression itself. 
* / 
if ( count += do_or( *defexpr, &expr[count], max — count 


*tdelaxpr. =." 


d 


hould 


) 


)) 
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#ifdef DEBUG 


/* Print out all the regular expressions after they have been 
* converted into pattern templates (see tools.c). 

* / 

for(i = coasts—-1 >= :0 3.) 


{ 
pr_tok(expr[i]); 


printf("---------------------------------~---------------- \n"); 
} 
#endif 
return(count); 
} 
/* I a ep Tvot sli aceon eel Saar et nk sigan sna age at eae sei Seis sy sn, Sito seated Sg earn * / 
etitrs.-<() 
{ 
#ifdef CPM 
/* If any character was hit, and that character is a 
* “Cy .then,aport. 
* / 
if ( bdos(11) && ((bdos(1,0) & Ox7f) == 0x03) ) 
abort(); 
#endif 
} End Listings 





microSUB:MATH 


Dr. Dobb's Journal 


Subscription 
Problems? 


A library of Numerical Methods Subroutines 
for use with your FORTRAN programs. 


503/884-3023 


Over sixty subroutines of: 


FUNCTIONS INTERPOLATION 
INTEGRATION LINEAR SYSTEMS 
MATRICES POLYNOMIALS 
NON-LINEAR SYSTEMS DIFFERENTIAL EQ 


No Problem! 


Versions now available for: 
MS-DOS: IBM FORTRAN-77 
SuperSoft FORTRAN IV 
Microsoft MS-FORTRAN ver 3.2 
DRI DR FORTRAN-77 


CP/M-80: Microsoft F-80 
SuperSoft FORTRAN IV 


LICENSE, $250. 
with SOURCE CODE, $600. 
(Manual alone, $25.) 


IMIZAI Tal 
SUBROUTINE 
LIBIRVALRY 


TRADEMARKS 
Microsoft & MS : Microsoft Corp. 
CP/M & DR FORTRAN-77 : Digital Research Corp. 
IBM : International Business Machines 
SuperSoft : SuperSoft Corp. 


Give us a call and we'll straighten it 
out. Today. 


Outside California 
CALL TOLL FREE: 800-321-3333 


foehn consulting, PO Box 5123, Klamath Falls, OR 97601 


Inside California 
CALL: 619-485-6535 or 6536 





Circle no. 27 on reader service card. Circle no. 82 on reader service card. 


Dr. Dobb’s Journal, October 1984 





83 


16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 
MSDOS 2.0 Filters 


One of the enhancements in MSDOS 
2.0 is support for the concept of redir- 
ectable I/O a4 la Unix. Two predefined 
I/O channels, called the “standard in- 
put” and “standard output,” may be 
accessed by any program; ordinarily 
they are directed to the keyboard and 
video display, respectively, but they 
can be individually redirected to other 
devices or to files with parameters 
placed in a DOS command line. 

The standard I/O devices allow in- 
troduction of ‘“‘filters,’’ another feature 
of Unix, into the MSDOS environment. 
To quote the MSDOS manual, “A filter 
is a program or command that reads 
data from a standard input device, 
modifies the data, and writes the result 
to a standard output device... . By us- 
ing the piping feature, you can cause a 
filter to receive its input from another 
command, or send its output to anoth- 
er command.” 

Three simple filters are supplied 
with MSDOS 2.0: SORT, which sorts 
text data; FIND, which searches an in- 
put stream to match a specified string; 
and MORE, which displays data one 
screen at a time. The witty technical 
writers at Microsoft go on to say, “You 
can easily add your own filter to the 
filters that have been supplied; just 
write a program that reads its input 
from the standard input device, and 
writes its output to the standard output 
device.”’ You can easily build your own 
jetliner, too. Just hook some wings and 
a fuselage onto some engines, and 
there you are! 

DDJ to the rescue once again. This 
month we present a detailed example of 
how to write a filter, with a little pro- 
gram called CLEAN. I previously pub- 
lished this program in a different form 
in Softalk/ IBM, and it was modified 
into a filter by Bob Taylor of Buffalo, 
New York. CLEAN can transform al- 


84 


most any kind of text input stream into 
a stripped-down output file. It may be 
used, for example, to massage a Word- 
Star docume7< file or other word pro- 
cessing file into a form that EDLIN can 
cope with. It does this by stripping the 
high bit off of all characters, expanding 
tabs to spaces, and deleting all control 
codes except for form feeds, line feeds, 
and carriage returns. 

In the command line for CLEAN, 
you must specify the source and desti- 
nation for the text; otherwise it will 
simply read the default standard input 
(the keyboard) and write to the default 
standard output (the video display). 
For example, to filter the WordStar 
document file “‘MYFILE.WS”’ and 
leave the result in “MYFILE.TXT,” 
you would enter: 


A>CLEAN <MYFILE.WS 
> MYFILE.TXT 


Note that the original file, MYFILE 
.WS, is unchanged. An invaluable ap- 
plication of the CLEAN filter is to res- 
cue assembly language source files. I’ve 
found that when you accidentally per- 
form extensive editing on such a source 
file in WordStar “document” mode in- 
stead of “nondocument” mode, the re- 
sulting file makes the assembler gag 
and spit out nasty messages. CLEAN 
lets you turn the source file back into 
something the assembler can swallow 
without losing all those painful hours of 
editing. 

Another handy application for 
CLEAN is to list a WordStar document 
file in “raw” form on the printer, com- 
plete with print commands, etc.: 


CLEAN <MYFILE.WS >PRN: 


CLEAN is a simple program and 
highly modular, as you will see from the 
accompanying source code (Listing 
One, page 87). It illustrates reading 





from the standard input, writing to the 
standard output, and sending error 
messages to the (unredirectable) stan- 
dard error device. It is also remarkably 
slow. This Macintosh-like performance 
can be ascribed to the fact that the in- 
put and output streams are being treat- 
ed as character devices. Even when files 
are being processed, two calls are made 
to MSDOS for every character filtered. 
You will find that if you change the 
“get_char” and “‘put_char” routines to 
perform 1024-byte reads and writes, 
and block/deblock the data internally 
to the CLEAN program, performance 
becomes extremely spiffy. 

Next month, we’ll publish the much 
more sophisticated “TK” filter in this 
column. TK, contributed by Jim Mott, 
is a powerful token parser with many 
runtime options. 


Sizing RAM under MSDOS 


In a previous column (DDJ No. 90, 
April 1984), I published a rather circu- 
itous method of finding the amount of 
available RAM under MSDOS 2.0. 
Several readers wrote in to take me to 
task for this item and showed me that 
there is a much more direct way to get 
the same result. Billy Smith’s letter 
says it all: 

“On the subject of sizing RAM un- 
der MSDOS, I know of a very simple 
solution that I think qualifies as ma- 
chine independent. In appendix E of 
the DOS manual we have an explana- 
tion of how DOS prepares programs for 
execution. The preparation, besides 
loading the file itself into RAM, con- 
sists of: 

(1) DOS setting up a PSP (Program 
Segment Prefix) just below the 
loaded program, and 

(2) DOS initializing some of the 
registers. 

“A careful examination of the struc- 
ture of the PSP shows that the word at 
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| PSP offset 2 contains the paragraph 
address of the first paragraph follow- 
ing the end of contiguous RAM. This is 
incredibly unclear in the manual, and 
it was only by test that I became cer- 
tain of this fact. 

“The manual fails to explicitly give 
the address of this value in the PSP. It 
must be deduced from an ambiguous 
diagram (page E-8). The value, which 
is called Top of Memory (not too bad a 
name), is footnoted as follows: 


First segment of available mem- 
ory is in segment (paragraph) 
form (for example, hex 1000 
would represent 64K). 


“It seems that what they mean by 
‘available memory’ is in fact ‘unavail- 
able memory,’ i.e., the paragraph ad- 
dress of the first paragraph of memory 
past the end of contiguous RAM. At 
any rate, this fact of the DOS environ- 
ment is readily available to every COM 
and EXE file at load time. I hope this 
makes sizing of memory a little easier 
for you and other readers of DDJ !” 


Many thanks to Billy and the several 
other readers who provided this helpful 
information. 


More Microsoft Assembler 
Warnings 


While writing this month’s column, I 
stumbled on a new discrepancy be- 
tween the manual and the Macro As- 
sembler. The manual leads you to be- 
lieve that the following code is correct: 


LES AX,DOUBLEWORD PTR 
[BP + 12] 


In practice, that code causes the as- 
sembler to cough up a funny error mes- 
sage. What you need to write is: 


LES AX,DWORD PTR [BP + 12] 


The reserved token DWORD isn’t men- 
tioned anywhere in the manual as far 
as I can tell. 

Bill Payne of Sandia Labs was kind 
enough to send a list of further “‘fea- 
tures” of the Microsoft Macro Assem- 
bler. These items were apparently col- 
lected on a CompuServe bulletin board 
by John Chapman and have passed 
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through the hands of an unknown 
number of intermediate benefactors. I 
have verified them all again before this 
appearance in DDJ. 


(1) The 8088 does not support a com- 
parison of immediate data with a seg- 
ment register. If you write 

CMP ES,0 

the assembler will produce the opcode 
for 

CMP AX,0 

and does not generate any error 
message. 


(2) Most instructions with missing 
Operands generate error messages; 


however, the instruction 

MOV AX, 

produces the machine code for 

MOV AX,0 

and no error message. Apparently, the 
same thing will happen for all instruc- 
tions that can use a general register as 
the destination and immediate data as 
the source. Zero is always used for the 
missing operand. 


(3) Erroneous code will be generated if 
square brackets denoting indexed ad- 
dressing mode are omitted in certain 
operations, even though an error mes- 
sage would be expected. If you write 
MOV BYTE PTR ES:DI,‘$’ 
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the assembler will generate the ma- 
chine code for 

MOV BYTE PTR ES: [7],‘$” 

rather than what was intended, which 
was 

MOV BYTE PTR ES: [DI], ‘$’ 

This appears to occur because the as- 
sembler finds DI in its symbol table, 
equated to the register triplet 111B, 
and substitutes the 7 as though the 
programmer had written 


DI EQU 7 


(4) Even if a RADIX pseudo-op has 
been used to specify the default base 
for data values, the assembler will still 
check the last character for a valid ra- 
dix specification and use it if present. 
For example, 

.RADIX 16 

SUB BX,0B 

generates the machine code 

83 EB 00 

which is incorrect for X‘0OB’, while 
SUB BX,11d or SUB BX,0Bh 

are both correct and will generate the 
machine code 

83 EB OB 

which is the intended instruction. 


(5) Data entry errors. Always scan 
comments in a newly entered program 
to make sure that each is preceded by a 
semicolon rather than a colon. The as- 
sembler will assume that the colon de- 
notes a label and will generate the spu- 
rious error message ‘Open 
Procedures.” Review labels in failing 
programs: the branch table sequence 
below provides both correct and incor- 
rect examples. 


Correct code.:. 
JMP CS:JUMLIST[ BX] 


JUMLIST DW routine] 

DW routine2 

Incorrect code.:. 

JMP CS:JUMLIST [BX] 
JUMLIST: DW routinel 

DW routine2 


(6) Pseudo-operations. The XLIST 
pseudo-op will be ineffective during 
both passes if the command line param- 
eter /D is specified for the assembly. 
Also, the assembler will not correctly 
resolve “identity” type definition errors 
in the EQUATE pseudo-op. 
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LOOPIT EQU LOOPIT 
will cause the assembler to hang. 


Hex to ASCII Conversion 


Jim Garinger of Hermosa Beach, Cali- 
fornia, writes: “In the June DDJ 16-Bit 
Toolbox, you included a subroutine to 
convert a binary word to its hex ASCII 
equivalent. It seems to be typical of the 
methods used by my friends with 8-bit 
systems. Trying to do this same thing 
myself with the 8086 assembler in- 
structions, I hit upon another way to 
do it and would like to share it with 
you. The listing is self-explanatory and 
lists the number of bytes of code and 
the clocks (you might want to check 


me on them) from the Intel manual, Jim’s subroutine accompanies this 


IAPX 88 Book. This, by the way, has | column as Listing Two (page 90). 
proven to be my invaluable reference 
when doing 8086 assembler work. 
“T would like to point out that further = 
gains in speed can be made with this 
routine, using my original coding meth- 
ods, by coding the call to hexbyte in line 
twice instead of as a near call. For the 
five bytes of added size penalty, there is 
a fair percentage of gain in clock speed. 
And nobody seems concerned about 
size anymore anyway. 
‘I did assemble both of our routines 
to check actual size, but I am afraid I 
can’t guarantee the accuracy of the 
clocks or the addition (I ran out of fin- Vote for ae ite enue ais 
gers and toes early on).” Circle Reader Service No. 196. 


16-Bit Toolbox (Text begins on page 84) 


_ Listing One 
l name = Clean 
M page 55,132 
j title ‘CLEAN - Filter text file’ 
4 : 
G : CLEAN - a G05 2.0 filter for word processing document files. 
6 : 
? : Griginally written by Ray Duncan 
§ : Converted to 005 2.0 filter by Bob Taylor. 
2 ; 
i0 - This program reads text from the standard input device and writes 
il > filtered and transformed text to the standard output device. 
12 : 
13 i. High bit of all characters is stripped off. 
14 : 2. Tabs are expanded. 
15 : 3. Removes all control codes except for line 
16 ; feeds, carriage returns, and form feeds. 
1? : 4 Appends an end-of-file mark to the text, if 
ld : none was present in the input stream. 
19 ; 
20 - Can be used to make a WordStar file acceptable for 
21 - other screen or line editors, and vice versa. 
22 
23 : 
Z4 = (000 r equ Gdh - ASCII carriage return 
24 = {008 lf equ Jah * ASCII line feed 
26 = HOC ff equ Och ; ASCII form feed 
27 = QU1H eof equ (lah : End-of-file marker 
28 = (003 tab equ 09h > ASCII tab code 
29 
3) = (}030 command equ Boh > buffer for command tail 
31 
32 - 105 2.0 Pre-Defined Handles 
33 
34 = 0000 stdin equ 0000 - standard input file 


(Continued on next page) 
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16-Bit Toolbox (Listing Continued, text begins on page 84) 


Listing One 

35 = 0001 stdout equ 001 > standard output file 

36 = G002 stderr equ 1002 ; standard érror file 

37 = (003 Stdaux equ (003 * standard auxilliary file 

3 = 004 stdprni equ 004 ; standard printer file | 
33 | 
4 000 cseg seament para public ’CODE’ { 
41 

42 assume csicseg,dsscseg 

43 ‘ 
44 0100 org «00H s start .COM at 100H 

45 

46 100 clean proc far s entry point from PC-D05. 

Vf O10 te push = ds > push a long return back 

46 0101 33 £0 xor ax, ax : to 205 onto the stack. 

49 (103 50 push = ax | 
50 

51 M104 £8 Oib0 Rk cleang: call = get_char > get a character from input. : 
b2 O10? 24 fF and al, fh > turn off the high bit. : 
03 H109 3C 20 chp al, 20h : ig it a control char? 

54 O18 73 1 jae clean4 ‘mo. write it to output. 

55 H1G0 30 1A csp al,eo? > is it end of file? 

56 GlOF 74 4B je cleanb ; yes, go write EUF mark and exit, 

47 Mii 3¢ 05 cap al, tab ‘is ita tab? 

58 (113 74 20 je cleanS s yes, go expand it to spaces. 

59 (115 3¢ 00 cmp = al er > is it a carriage return? 

60 G11? 74 08 je clean35 > yes, go process it. 

6} 0119 3C GA CHD al,if : is it a line feed? 

62 BLIB 74 04 je cleans " yes, go process it. 

63 U110 3C OL chp al, ff - 1s it a form feed? 

b4 Q1IF 75 £3 jne clean3 sno. discard it. 

65 121 cleand5: 

bb H121 C7 06 0193 R GOGO HOU column, 0 s if it’s a legit ctr! char, 

6? Giz? EB 05 90 jmp clean45 ; ue should be back at colurin 0. 

68 

65 Q12A FF 06 0193 R clean4: inc column ; if it’s a non-ctrl char, 

7 U12E cleand: = gol-= colt -f. 

71 H12E £8 9176 R call — put_char s write the char to output. 

72 U131 73 0 jnec cleand ; if OK, go back for another char. 

73 | 

74 O133 BB 9002 Moy bx, stderr snot OK. Set up to show error. 

75 136 BA 0195 R Nou dx, offset err_nsg 

? 0139 89 0018 90 NOV cx,err_msq_len ; error = Disk full. 

t? G130 84 40 nowy ahi, 40h ; write the error message 

78 H13F CO 21 int 2th ; to the standard error device. ‘CON:) 

79 0141 CB ret ; back to 005. 

80 

Bl 0142 Al 0193 R cleans: mov ax, Column > tab code detected, must expand 

82 Q145 99 cud ; expand tabs to spaces. 

83 0146 89 0006 roy ex,8 > divide the current column counter 

84 0149 FP? Fg idiv cx > by eight... 

85 0148 2B CA sub cx, dx ; eight minus the remainder is the 

66 Ul40 G1 OE 0193 P add column, cx : number of spaces to send out to 

G7 0151 cleanSS: ; move to the next tab position. 

88 Oi5t 51 push cx 

89 (152 80 20 nov — al 20h 
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90 0154 £8 0178 R call — put_char > Send an ASCII blank 


41 G15? 549 pop CX 
92 Q156 £? F? loop = clean 
93 (Q15A EB AB jmp clean3 
34 
95 Q1SC £8 0178 P clearib: call = put_char ; write out the EOF mark, 
9b O15F CB ret : and return to 005. 
a 
98 160 clean endp 
99 
100 
101 0160 get_char proc near 
102 (160 Bb 0000 nou bx, stdin > get chars from std. input 
193 H163 89 O00 Nov cx, | ; # of chars to get = 1 
104 (166 6A O19] R nou dx,offset input_buffer ; location = input_buffer 
15 H159 B4 SF nov ah, 3fh 
106 G1o# CO 21 int elh : do the function call 
1n7 H160 OB CQ or ax, aX : test # of chars returned 
{fie Ol6F 74 04 i get_charl : if none, return LOF 
103 Hi71 AG Oil R HOU al,input_buffer > else, return the char in AL 
110 0174 C3 ret 
| lil 0175 get_charl: 
ll? 0175 BO tk nov — al eof ; ho chars read, return 
| amt C3 ret ; an End-of File (EOF) mark. 
114 ul ?e get_char endp 


The Little Board™...$349* 


The world’s simplest and least expensive CP/M computer 


TepM 22. 


CP/M 2.2 : 
INCLUDED “UNDER $200 IN 
OEM QUANTITIES 


e 4MHz Z80A CPU, 64K RAM, Z80A CTC, 2732 Boot ROM 

e Mini/Micro Floppy controller (1-4 Drives, Single/Double Density, 1-2 sided, 40/80 track) 
e Only 5.75 x 7.75 inches, mounts directly to a 5 1/4” floppy drive 

e 2 RS232C Serial Ports (75-9600 baud & 75-38,400 baud), 1 Centronics Printer Port 

e Power Requirement: +5VDC at .75A; +12VDC at .05A/On-board -12V converter 

e CP/M2.2BDOS e ZCPR3CCP e Enhanced AMPRO BIOS 


@ AMPRO Utilities included: 
e read/write to more than 2 dozen other formats (Kaypro, Televideo, IBM CP/M86....) 
e format disks for more than a dozen other computers 
@ menu-based system customization 


e BIOS and Utilities Source Code Available 


e SCSI/PLUS Adapter: 
© Mounts directly to Little Board e Slave |/O board control e Full ANSC X3T9.2 
e 16 bidirectional 1/O lines © $99/Quantity 1 





Distrioutor/Dealer/Reps 
: Z80A is a registered trademark of Zilog, Inc 
COMPUTERS. INCORPORATED CP/M is a registered trademark of Digital Research. 


67 East Evelyn Ave. e Mountain View, CA94041 « (415)962-0230 e TELEX 4940302 


Circle no. 4 on reader service card. 
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(Continued on next page) 


A Professional Quality Z80/8080 Disassembler 


REVAS Version 3 


Uses either ZILOG or 8080 mnemonics 
Includes UNDOCUMENTED Z80 opcodes 
Handles both BYTE (DB) & WORD (DW) data 
Disassembles object code up to 64k !ong! 


Lets you insert COMMENTS in the disassembly! 


A powerful command set gives you: 


INTERACTIVE disassembly 
Command Strings & Macros 
On-line Help 
Calculations in ANY Number Base! 
Flexible file and I/O control 


All the functions of REVAS V2.5 


REVAS: 


Is fully supported with low cost user updates 
Runs in a Z80 CPU under CP/M* 
Is normally supplied on SSSD 8” diskette 


Revas V 3...$90.00 Manual only...$15.00 
California Residents add 6%% sales tax 


REVASCO 


6032 Chariton Ave., Los Angeles, CA. 90056 
(213) 649-3575 


*“CP/M is a Trademark of Digital Resaerch, Inc. 





Circle no. 59 on reader service card. 
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16-Bit Toolbox (Listing Continued, text begins on page 84) 


Listing One 
115 
116 172 put_char proc near 
11? (178 AZ 0192 R nov output_buffer,al ; put char to write in buffer. 
118 0176 BR O61 mou bx, stdout * urite to std. output 
119 O17E BY 0001 mou cx, 1 : f of chars = | ; 
120 (181 BA 0192 k moU dx,offset output_buffer ; location = output_buffer 
l21 0184 84 40 nov ahi, 40h 
122 0186 CD 21 int 2th ; do the function call 
123 U18e 30 0001 chp ax, | s check to see it was really done. ‘ 
124 M188 75 02 jne put_charl 
125 0180 F8 cle > really done. return carry = 0 
126 J18E 3 ret ; as success signal. 
127 OLSF put_charl: 
128 Q18F FS stc > not really done. return carry = 1 
129 O19) C3 ret ; as error signal (device is full). 
130 019i put char endp 
131 
132 151 00 input_buffer db f 
33 0192 00 output buffer = db ( 
13 
135 0193 0000 column dw 0 
136 
137 0195 00 OF err msg db cr, lf 
138 019? 63 6€ 65 61 6 3A db "clean: Disk is full.’ 
139 70 44 69 73 4B 20 
140 69 73 20 66 75 6C 
141 6f 25 
142 QiAB OO GR db cr, if 
143 = §01e err_msg_ len equ (this byte)-(offset err_msq) 
144 
145 Q1AG cseg ends 
146 
147 end clean 


End Listing One 


16-Bit Toolbox 


Listing Two 
Jim Garinger's binary to hex ASCII subroutine. 


; ROutine to convert 16-bit binary 
* word to hexadecimal ASCII string. 


; Call with: AX = 16-bit binary value 

H SI = first-byte-address for 
7 resulting ASCII string 
7 

; Returns: nothing 
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=e me WS WO 


=e 


Destroys: 


In each comment, 
bytes of machine code, and the second is the number 


AX, BX CX, ST, clears direction 


flag 


the first number is the number of 


; Of machine cycles to execute that instruction. 


hexconv 


hexbyte 


hextbl 


hexbyte 
hexconv 
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proc 


cld 
mov 
mov 


mo V 


call 
mov 


call 
ret 


proc 
XOE 
shr 
shr 
xlat 
xchg 
xlat 


sStosw 


ret 


db 


endp 
endp 


near 
745 bytes/276 
Baa i 2 
Ci 4 pie 
bx, offset hextbl 
Pog. Le pont 
ch at Sd 2 store 


4 shift 


clocks 
count 


to table for translations 
for converting 2nd half 


; convert upper half of 


. word ‘to (7iex 


ASCII 


(98 clocks) 


ASCII 


8G (+ 2*98 = 276 total clocks) 


for positioning 


2@ low nibble into al 
2@ position lower nibble 
11 convert lower nibble 
2 get higher nibble 
11 convert higher nibble 


*conversion table to hex ASCII 


hexbyte Pe es dae 

ah,ch oe 2 get the word 
* convert lower half of 
; word to hex 

hexbyte So aia | eae (98 clocks) 
Soh at ge we 
7 

near 

al,al Ag 3 clear 

BK soe oe 

ai,.C1 ee 

hextbl Rr eike 

al,ah ate 

hextbl See 
> hes REED Ge 
Soe AN 

"912345678 9ABCDEF" 


End Listings 
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~C/UNX PROGRAMMER’S NOTEBOOK 


By Anthony Skjellum 


The thrust of this column is to provide 
examples of scientific uses for the C 
programming language. My aim is to 
present routines useful in conjunction 
with scientific programming; some are 
general and others implement specific 
numerical algorithms. I intend this col- 
umn for several specific audiences. 
The first audience comprises those die- 
hard programmers who continue to 
produce useful programs in outdated 
languages. Not only is this of greater 
expense to themselves, but it also 
cheats others by locking them into For- 
tran or other old-fashioned languages. 
For them, I want to illustrate the ele- 
gance and versatility of C. 

The second audience (which may 
also include the first) is those users in- 
terested in scientific applications who 
may not have used C for this purpose. 
This column should demonstrate that C 
is completely acceptable for such pur- 
poses, and the code shows how general- 
ly concepts can be presented. (I make 
no attempt to survey scientific applica- 
tions where C could be used but merely 
include some nontrivial examples.) Fi- 
nally, for those readers who don’t fit 
into the above categories, the general 
purpose routines should still prove 
interesting. 

The column presents three program- 
ming systems. The first is a set of gen- 
eral purpose subroutines designed to 
simplify the process of user — program 
interaction and to provide a straight- 
forward means for handling erroneous 
input. The input mechanisms are not 
particularly sophisticated but empha- 
size structure in the user’s program. 


All the code presented with this arti- 
cle is copyright © 1983, 1984 by the 
California Institute of Technology 
(Caltech), Pasadena, CA 91125. All 
rights reserved. This code may be free- 
ly distributed, used for all non-com- 
mercial purposes, but may not be sold. 
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The routines make range checking so 
automatic that the programmer has no 
excuse for omitting such checks, re- 
gardless of how quickly a program 
must be completed. Providing these 
routines to novice programmers in a 
classroom environment has eliminated 
a lot of frustration over using the 
scanf( ) function. 

The second and third programming 
systems illustrate Runge-Kutta inte- 
gration. The Runge-Kutta formalism 
is a standard numerical technique for 
handling the numerical integration of 
one or more first-order ordinary differ- 
ential equations. Interested readers 
may wish to consult the book Numeri- 
cal Analysis by Richard L. Burden, et 


int iinp(prompt,cflag,low, high); 





al. (Prindle, Weber, Schmidt Publish- 
ers, 2nd ed., 1981). This is the source 
for the algorithms presented in the 
code and is also a fine reference for in- 
troductory numerical methods. I chose 
the Runge-Kutta routines as examples 
because of their widespread use in sci- 
entific work. 


Acknowledgements 
The general purpose library has re- 
ceived extensive use by Caltech stu- 
dents during the past school year. 
Thanks are due to Scott Lewicki who 
discovered a couple of minor details 
that caused major errors. 

The Runge-Kutta code was devel- 
oped by Michael J. Roberts and my- 





char “prompt: optional prompt string to be printed before input 


char cflag: 
int low 
int high: 


checking flag: if non-zero, range checking is performed 


low, high are (inclusive) range checking values 


linp( ) repeats input until a valid number is entered; the valid number is the func- 


tion’s return value. 


double finp(prompt, cflag, low, high); 






char “prompt: optional prompt string to be printed before input 


char cflag: 
double low 
double high: 


checking flag: if non-zero, range checking is performed 


low, high are (inclusive) range checking values 


finp( ) repeats input until a valid number is entered: the valid number is the func- 


tion s return value 


len = sinp(prompt, string, length); 
int len: length of entered string 






char “prompt: optional prompt string to be printed before input 


int length: 
sinp( ) ignores leading spaces. 
retn = cing(prompt); 

int retn: 


maximum length of input string 


1—> 'Y’ was typed, 0 —> ‘N’ was typed 


char * prompt: optional prompt string to be printed before input 


retn = display(fname): 
int retn: 
char *fname: 


O —> success, —1 —> failure 
null-terminated name of file 


display( ) prints the specified file on the standard Output device. 


Table I 


GPR Calling Sequences 
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self. Mr.Roberts developed the major 
portion of the RKSYS (multiple equa- 
tions) routines as a project for Cal- 
tech’s Introduction to Computational 
Physics course. Approximately 60 
hours were spent developing, testing, 
and debugging this code. Mr. Roberts 
also wrote the original version of the 
documentation for RKSYS, included in 
modified form as Table III (page 94). 


GPR: General Purpose Routines 
The general purpose library consists of 
five subroutines. Four of these subrou- 
tines deal with input. The fifth is a sim- 
ple facility for printing files to the con- 
sole. This latter routine, called 
display( ), will be considered separate- 
ly from the input functions. 

The other routines are iinp( ), 
finp( ), sinp( ), and cinq( ). The first 
three provide integer, floating-point, 
and string input, respectively. The last 
is a yes-no question processor. Table I 
(page 92) provides the exact calling se- 
quences for each of the routines. 

Traditionally user input consists of a 
sequence of lines, such as the sequence 
for inputting an integer shown in Fig- 
ure | (at right). 

Entering this sequence repeatedly 
can be rather tedious, so error check- 
ing is often omitted. This practice 
leads to programs that do not handle 
user mistakes intelligently. The GPR 
routines allow you to replace the above 
sequence with a single line of code: 


input = iinp (‘Enter input variable 
—>’”.1,MIN,MAX); 


Since using the GPR input functions is 
easier than using scanf( ), this variety 
of function should be well received and 
may be used in lieu of scanf( ) for most 
purposes. A further advantage of these 
functions is that they unclutter the us- 
er’s program. More sophisticated 
checking must still be included explic- 
itly; the input functions only do range 
checking. 

The display( ) function was included 
to encourage users to provide on-line 
help/documentation along with their 
programs. This function allows users 
to print out additional text whenever 
appropriate, creating a trivial on-line 
help facility; a help feature is almost 
always appropriate but usually is 
omitted. 
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#define MAX 100 


int input; 


while (1) 


/* input loop */ 


printf(‘‘Enter input variable —> “’); 
if (scanf(‘‘%u’’,&input)!'= 1) = /* get variable */ 
{ | 
drain( ); 
continue, 


/* drain spurious characters */ 
/* skip range checks */ | 
/* do range ose | 
if (input > = MIN) && (input <= MAX)) 
break: /* we are done */ 
printt(’ ‘\nNumber out of range\n’’); : 
\ /* keep looping until scanf( ) can read a variable 7. 


Figure 1 
















File: RRA. cs Subroutine library: Listing Three. 


The C language call is as follows: 





rk4(function,a,b,n,alpha,t,w); 
where; 


function returns the righthand side fly. ’ of: he system | 


a= oS the start of the interval of integration — 2 -— 
b _ ig the end of the interval of integration - 

n __ is the number of integration steps 

alpha is the initial value y(O) = alpha : 

t _is the array where the times will be stores 

w _ is where the approximations to y wil be stored 


The formal ’ definitions for the functions and its s parameters. are: 


1. rkA( ): nstep integrator 
















rk4 (function, a,b,n,alpha,t,w) 
double (*function)(); — /* function giving sf (t,y) “/ 





double a; /* beginning of interval a 

double b; /* end of interval a. 

int n; /* number of steps in interval : a 

loupe alpha: /* initial condition for y */ — | 
double t[ |; /* array for returning T[i] values 7 
double wi L /* array for romping WH values i 





rk4_1(): 1 step integrator 










rk4_1(function, h,time, yapprox) 
double (*function)(); _/* pointer to function to integrate 
double h; /*stepsize*/ 

double time; /* current time step *] 

double *yapprox; a current row of function *) 








Table Il _ 
RK4: Runge-Kutta Integrator 
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Listing One (page 96) shows the 
GPR routines. The current list is not 
exhaustive but intended only to sug- 
gest a trend for additional routines. 


RK4: Runge-Kutta Algorithm 
Now we will consider a scientific appli- 
cation of C: single equation Runge- 
Kutta integration. Before introduction 
of the code, some background is 
required. 

We start with a differential equation 
in the canonical form 


y’= f(y,t) 


where y/is the first derivative of y with 
respect to t and f(y,t) is a piece-wise 
continuous function of its arguments. 
In addition to the differential equa- 
tion, we are given an initial condition 


y(t =0) = yO 


where yO is some real constant (e.g., 
35.1). These two equations uniquely 
specify the solution y(t), which is as 
yet unknown. The need for numerical 
techniques arises when the differential 
equation cannot be solved analytically. 

Many possible numerical approach- 
es can solve this equation, but consid- 
ering all of them is beyond the scope of 
the current discussion. It is sufficient 
to state that a technique called RK4 
(Runge-Kutta fourth order) will solve 
the equation numerically with known 
error characteristics. Listing Two 
(page 98) presents the solution of a 
typical equation 


yi det y 
with the initial condition 
y(t = 0) = 5.0 


Since this equation can also be solved 
analytically, a comparison with the ex- 
act solution will demonstrate the error 
characteristics of the method. The an- 
alytical solution turns out to be 


y(t) = t + 5.0*exp(t) 


This result can be deduced by 
inspection. 

The Runge-Kutta algorithm and 
code are presented in Listing Three 
(page 101). Readers interested in more 
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information should consult the Burden 
book. Calling sequences are described 
in Table II (page 93). 


RKSYS: Systems of Differential 
Equations 

Imagine now that we have a set (sys- 
tem) of N first-order ordinary differ- 
ential equations: 


y(t) =f(ty,y...y) 
OED Sy 
(Gi = 1,2,...N) 


This problem is useful for solving other 
systems too, since sets of linear differ- 
ential equations involving higher order 
derivatives can be transformed to larg- 
er systems of the above variety (see 


RKS.C 


Burden). Thus, a program that can 
solve the above system has reasonably 
wide applicability. 

Unfortunately, the problem is more 
complicated for N equations than for 
one equation, as is evident from Table 
III (page 95). This table describes the 
more general Runge-Kutta software, 
and Listing Four (page 106) contains 
the actual code. Listings Five and Six 
(pages 110-114) are example pro- 
grams that use rk4n( ) to solve small 
systems of equations. Listing Five im- 
plements the same problem as Listing 
Two but uses rk4n(_) instead of rk4( ) 
to perform the integration. 


Using the Integrator 
The rk4n(_) subroutine will solve a sys- 


Files: Subroutine library: Listing Four 
RKST1.C Test program 1: Listing Five 
RKST2.C Test program 2: _Listing Six 


The format of the C language call is as follows: 
rk4n(function, wsource, wstore,m,a,b,n,alpha,t,kuttas): 


where: | 
function _is a pointer to the function that will return the first derivatives 
of each function in your system. It will be called as: 
function(j,i,tval,rk_comp) 
where: 
j is the current time step 
is the current function number (O, 1, ...., 
n— 1). 
tval is the current time value 
rk_comp is a pointer to a function that your derivative — 
function must call as: 
rk_comp(n,j,i) 
where: 
nis the function number in the system 
(0, .. .n— 1) of the function you 
wish to evaluate 
jis the time step 
iis the current function number 
wsource __is a pointer to the function that will return a W value (which will 
have been stored by your WSTORE routine—one need worry 
only about storing and returning these values, not the values 
themselves). It will be called as: 
wsource(j,i) 
where: 
J is the current time step 
| is the current function number 
wstore iS a pointer to the function that will store values of W (see 


wsource above). It is called as: 


wstore(j,i, value) 


where: 


j is the current time step 


Table Ill 


(Continued on next page) 
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tem of first-order differential equa- 
tions as specified by the calling pro- 
gram, using the Runge-Kutta 
fourth-order integrator (described in 
Burden, pages 239 — 240; refer also to 
page 205). 
The calling program must provide 
information for the rk4n(_ ) subroutine 
before it can solve the system of differ- 
ential equations. This information con- 
sists of: 
¢ The first derivatives of each of the 
functions in the system 

e Subroutines to store and retrieve val- 
ues as the functions are integrated 

e Initial conditions for each of the 
functions 

¢The range over which the functions 
will be integrated 

¢ Storage areas for the time and inter- 
mediate “k” value arrays 

The information must be provided in a 


i is the current function number 


specific order and format, as described 
in Table ITI. 

By studying the Runge-Kutta rou- 
tines, the reader will notice the central 
importance of pointers to functions in 
the organization of the code. Using 
this concept effectively allows the soft- 
ware to be completely divorced from 
the specifics of the user’s program. 


Conclusions 

This article presented three sets of ex- 
ample routines to demonstrate how sci- 
entific applications and related soft- 
ware are actually implemented in C. 
Studying the examples should help the 
reader to gain insight into the use of C 
for similar undertakings. DD} 


(Listings begin on page 96) 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 197. 






value is the value to be stored for that location 


Note:wsource(j,i) 
wstore(j,i,value). 


7 oO” 3 


alpha 


should be equal to 


after 


“value — 


is the number of equations in your system 

is the starting time value for the interval 

is the ending time value for the interval 

is the number of points into which the interval is to be broken 
is a one-dimensional array of the initial values. The value 


alpha{O] is the first function at time = a, alpha[1] is the 


second, etc. 


t is a one-dimensional array where rk4n{ ) will store the time 
: values as it calculates them. It must be at least as large as n. 


kuttas 


is a two-dimensional array, the size of whose second element 


is 4 (i.e., Kuttas| ][4}]). It will be the storage area for “‘k”’ values 


as they are calculated. 


~The formal C definitions for the function and Its parameters are: 


double rk4n(function, wsource,wstore,m,a,b,n,alpha,t,kuttas) 


double (*function)( ); 
double (*wsource)( ); 
double (*wstore)( ); 
int m; 

double a; 

double b; 

int n; 

double alphal |; 
double t{ |; 

double kuttas/[ |[4]; 


Comments on array sizes, (*wsource)( ), (*wstore)( ): 
The (*wstore){ ) function should trap out-of-bound storage requests that result 
as anatural part of the rk4n( ) algorithm. A more elegant solution is to make the 


array size used by ((one greater than the number of steps. 
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Table Ill 
RK System Solver (RKSYS) 
















DeSmet 
C 


8086/8088 
Development 


Package ] AG 


FULL DEVELOPMENT PACKAGE 
Full K&R C Compiler 
- Assembler, Linker & Librarian 
- Full-Screen Editor 
Execution Profiler 
Complete STDIO Library (>120 Func) 


Automatic DOS 1.X/2.X SUPPORT 


BOTH 8087 AND 
SOFTWARE FLOATING POINT 


OUTSTANDING PERFORMANCE 
First and Second in AUG ’83 BYTE 
benchmarks 










sympotic DEBUGGER DO 










Examine & change variables by 
name using C expressions 


Flip between debug and display 
screen 


Display C source during execution 
Set multiple breakpoints by function 


or line number 






DOS LINK SUPPORT 


Uses DOS .OBJ Format 
LINKs with DOS ASM 
- Uses Lattice® naming conventions 


Check: © Dev. Pkg (109) | 
O Debugger (50) 
O DOS Link Supt (35) 


SHIP TO: 





ZIP 


CORPORATION 


P.O. BOX C 
Sunnyvale, CA 94087 


(408) 720-9696 


All orders shipped UPS surface on IBM format disks. 
Shipping included in price. California residents add 
sales tax. Canada shipping add $5, elsewhere add 
$15. Checks must be on US Bank and in US Dollars. 
Call 9 am. — 1 pm. to CHARGE by VISA/MC/AMEX. 


Circle no. 19 on reader service card. 
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C/Unix (Text begins on page 92) 
Listing One 


i= 
opr. ¢ created: 01-Oct-83 


general purpose utility routines for use with C to simplify 
user/program interaction. 


by Anthony Skjellum 
Copyright 1983, 1984 (c) Caltech. All rights reserved. 


This subroutine library may be distributed freely and 
used for all non-commercial purposes but may not be sold. 


Routines: 
iinp(): integer input w/ prompt, range check + retry 
finp(): float input w/ prompt, range check + retry 
Ssinp(): string input w/ prompt 
cing(): yes/no question processor w/ prompt + retry 


display(): display a file 
updated: 20-Jul-84 


testing information: this code was tested with Aztec C 1.05j 
*f 


#include <stdio.h> 


/* Unix flag (used by display()) */ 
f * 

#define UNIX 1 

ce 

#ifndef UNIX 

#define TEOF 26 FN ok we Pe 
#endif 


/* general purpose subroutines: */ 
/* iinp(): integer input with range checking, prompt and retry */ 


iinp(prompt,cflag,low,high) 
char *prompt; 

char cflag; 

int low; 

int high; 

{ 


int ival; 


while(1) 
{ 
printf("%s",prompt) ; 
if(scanf("%d",&ival) < 1) 
while(getchar() != '\n') 


if((!cflag)||(ival >= low)&&(ival <= high) ) 
break; 


/* no checking, or within bounds */ 


printf("\nValue out of range, try again...\n"); 


} 
return(ival); /* return the value */ 


pf *end:..cdinp( }.-*/ 
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/* finp(): floating point input with range checking, prompt and retry */ 


double finp(prompt,cflag,low,high) 
char *prompt; 

char cflag; 

double low; 

double high; 


{ 
double fval; 


while(1) 
{ 
printf("%*s",prompt) ; 
while(scanf("%1lf",&fval) < 1) 
while(getchar() != '\n') 


‘ 


if((!cflag)||(fval >= low)&&(fval <= high) ) 
break; 
/* no checking, or within bounds */ 


printf("\nValue out of range, try again...\n"); 


} 

return(fval); /* return the value */ 
} /* end > finp(). *7 
/* subroutine sinp(): input a string with prompt, length limit */ 
sinp(prompt,string, length) 


char *prompt; 
char *string; 


int length; 

{ 2 
int len; /* length of actual string input */ 
char chr; 
char *fgets(); /* string input function */ 
printf("%s",prompt) ; /* display the prompt */ 


while(isspace(chr = getchar())) 


ungetc(chr,stdin) ; 
fgets(string,length,stdin) ; /* input the string */ 


if((len = strlen(string) ) ) 
string[strlen(string)-1] = '\0O'; 


return(len); 
} /* end sinp() */ 


/* subroutine cinq(): yes no question processor with prompt, retry */ 
cing(prompt) 
char *prompt; 
Char, cari 
while(1) 
printf("%s",prompt) ; 
do /* drain spurious 'white space' */ 
chr = tolower(getchar()); /* use first char =f 
iio sibilssc eae OR 
#f( (chr == "y') /f(ehr.=='n')) break; 
printf ("\nRespond with Y or N, please try again...\n"); 
} 
return((chr == 'y') ? 1: O); 
} (Continued on next page) 
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C/Unix (Listing Continued, text begins on page 92) 
Listing One 


/* display(): subroutine to print an ascii file on the console */ 


display( fname) 
Char *fname; 


{ 


Char c: /* character to output */ 

FILE *disp; 

if((disp = fopen(fname,"r")) == NULL) 
return(-1); /*: can't: epen: file: */ 

while((c = getc( /* And the last one */ 


*yapprox += (k1 + 2.0*(k2 + k3) + k4)/6.0; /* new approx */ 


Listing Two 


f* 
program: rktesti.c 
created: 03-Nov-83 
by: A. Skjellum 
Copyright 1983, 1984 (c) California Institute of Technology. 
All rights Reserved. This program may be freely distributed 
for all non-commercial purposes but may not be sold. 
updated: 16-Nov-83 
purpose: illustrate the use of rk4 program 
uses: rk4.c 
summary: 7 
integrates the differential equation: 
POE) eee eee 
vy(0O}) = 5.0. 
for which the exact solution: 
y(t) = t + 5exp(-t) is known. 
"/ 


/* constants */ 


#define YZERO 


5.0 /* initial value for y */ 

#define TSTART 0.0 /* starting time for integration */ 
#define TEND 10.0 /* ending time for integration */ 
#define STEPS 80 /* 40 steps in integration */ 
/* subroutines: */ 
/* exact(): returns exact solution value, given. t */ 
double exact(t) 
double t; 
{ 7 

extern double exp(); /* exponential function */ 


End Listing One 


(continued on page 100) 
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C/ Unix (Listing Continued, text begins on page 92) 
Listing Two 


LOCC) 
return((t + YZERO*exp(-t))); 


return(YZERO) ; 
} 


/* fn(t,y): return f(t,y) given t,y values */ 
double fn(t,y) 


double t; 
double y; 


J > 
differential equation is y' + y= t+1 


therefore, f =t +1 - y. 
Sy 


return f+ 1.0) = 27} 
} 


/* solutn(): print solution step at console */ 


solutn(t,y) 
double *t; /* pointer to t value */ 
double *y; /* pointer to y value */ 


{ 
printf("t = *7.3e, y = %7.3e, y_ exact = %7.3e, diff = %*7.3e\n", 
+t. *y exact (Sty); *y.- exact (*y)): 


} 

/* main program: */ 

main( ) 

/* external declarations */ 
double fn(); /* ensure that this is typed as double */ 
/* local variables: */ 


register int i; 


double yarray[(STEPS],tarray[STEPS]; 
/* integrated solution stored here */ 


/* begin code: */ 


printf("\n\nrktesti.c as of 03-Nov-83\n\n") ; 

printf("Integrates: y'+y=1+t for\n\n"); 

printf("t = *7.3e to *7.3e, with Xu steps\n\n", 
TSTART,TEND,STEPS); 


f* 
integrate the answer from t = 0 to t = 10 sec 
80 points. 

=f 


rk4(fn,TSTART, TEND,STEPS,YZERO, tarray,yarray) ; 
/* compute the answers */ 
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for(i=0;i<STEPS; i++) /* print solution */ 
solutn(tarrayt+i,yarrayti) ; 


printf("\n\nEnd of execution\n\n") ; End Listing Two 


Listing Three 


/* 
Runge - Kutta order 4 Algorithm 
Creation date: 31-Oct-83 
Author: Mike Roberts 
Copyright 1983, 1984 (c) California Institute of Technology. 
All rights Reserved. This program may be freely distributed 
for all non-commercial purposes but may not be sold. 
This algorithm is described in detail on page 205 of 
Burden, Richard L.: Numerical Analysis. 
To approximate the solution of the initial value problem 
y'=f(t,y), a<=t<=b, y(a)=alpha, 
at (N+1) equally spaced numbers in the interval [a,b]: 
INPUT endpoints a,b; integerg N; initial condition alpha. 
OUTPUT approximation w to y at the (N+1) values of t. 
Step 1: 
Set h=(b-a)/N; 
t=a; 
w=alpha; 
Output (t,w). 
| Step is 
For i=1,2,...,N dado Steps 3-5: 
Step 3: 
Set Ki=hf(t,w); 
K2=hf(t+h/2,wt+K1/2) ; 
K3=hf (t+h/2,w+k2/2) ; 
K4=hf(t+h,w+K3). 
Step 4: 
Set w=wt+(K1+2K2+2K3+K4) /6; (Compute w[{i].) 
t=atih. (Compute t[{i].) 
Step 5: 
Output (t,w). 
Step 6: 
Stop. 
we 


#define FALSE O 
#define TRUE 1 


rk4(function,a,b,n,alpha,t,w) 


double (*function)(); /* function giving: f(t ey): *7 

double a; /* beginning of interval */ 

double b; /* end of interval */ 

ant. nH: /* number of steps in interval */ 
double alpha; f* initial condition: for y. */ 

double t{[]; /* array for returning T[i] values */ 
double w[]; /* array for returning W[i] values */ 


{ 
register int i; /* counter for integration steps */ 
double h; /* stepsize */ 
double time; 


double yapprox; /* approximation for y value */ (Continued on next page) 
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C/ Unix (Listing Continued, text begins on page 92) 
Listing Three 


} 


fe STEP! 1: Inttialization © */ 


h = (b-a) / (double)n ; /* Compute stepsize */ 
time = a; /* Initialize time */ 
yapprox = alpha; /* Start with the approximation 


equal to the initial value */ 


for (i=0O; i<n; itt) /* Main integration loop */ 
{ 
1265) /* if not first time, call the integrator */ 
rk4_ 1(function,h,time,&yapprox) ; 


/* Pass the function pointer, the h, time, and 
yapprox values, and the pointers to 
the current positions in the T and W 
matrices */ 


time = a + h*(double)i; /* compute time */ 
t{i] = time; /* also save it */ 
w(li] = yapprox; /* store value for function */ 


pts thas is the RK4 integrator portion. It performs one step of the 


ef 


integration, and is called on each step from the RK4 loop. 


function = pointer to function to integrate 
h = stepsize 

time = current time location 

yapprox = current w (function approximation) 


rk4_1(function,h,time,yapprox) 


double (*function) (); /* Pointer to function to integrate */ 
double h; /* Step size */ 

double time; /* Current time step */ 

double *yapprox; /* Current approximation of function */ 


{ 


104 


double ki, k2, k3, k4; /* Temporary values in RK calculation */ 


kl = h * (*function) (time, *yapprox) ; /* Evaluate first approx */ 
k2 = h * (*function) (time+th/2.0, *yapprox+ki/2.0); 

/* Evaluate second approx * 
k3 = h * (*function)(time+h/2.0, *yapprox+k2/2.0):; 


/* And the third */ 
k4 = h * (*function)(timeth, *yapprox+k3) ; 
/* And the last one */ 


*yvapprox += (k1 + 2.0*(k2 + k3) + k4)/6.0: /* new approx */ 


End Listing Three 


(Listing Four begins on page 106) 
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produces programs that run faster than any other C compiler avail- 
able for PC-DOS.”’ 
















PC MAGAZINE JULY 1983 
H. Hinsch 


‘“... Microsoft chose Lattice C both because of the quality of code 
generated and because Lattice C was designed to work with 
Microsoft’s LINK program.” 

PC MAGAZINE OCT. 1983 

D. Clapp 


“Lattice is both the most comprehensive and the best documented of 
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C/Unix (Listing Continued, text begins on page 92) 


Listing Four 
3 * 
rk4n.c created: O7-Nov-83 
authors: A. Skjellunm, 
M. Roberts 
updated: 14-Nov-83 
by MJR 


Copyright 1983, 1984 (c) California Institute of Technology. 
All rights Reserved. This program may be freely distributed 
for all non-commercial purposes but may not be sold. 


Purpose: 
integrate M first order differential equations 


WO LS) o> ch EL Ley Jat eT) 
M equations. 


algorithm: see Burden, Faires, Reynolds, p. 239-240 
also see p. 205 


interval t = [a,b] 

choose N > O as as partition of interval (N steps) 
define step size h = (b-a)/N. 

Initial conditions: (denote w[{i,j] as approxes to y's) 


&m GD Re 


w(i,O]) = alpha[i] 
means: ith w at time zero is set to initial value 
alpha[{ijJ. 
5. Computing the w[{i,j+1] from w[{i,j] is done as follows: 
loop over i= 1 to™M 
compute ki({ij] = h*f[{i](t,w{1,j],...,w{M,j]) 
end of loop 


loop over i=i1toM 


compute k2[(1iJ] = h*f[({i](tth/2,w[{1,j]+.5*k1i[1],..., 
w({M,j] + .5*k1[M]) 


end of loop 
loop over i= i1to™M 


compute k3({iJ] =h*f(ij](tth/2,w[1,j]+.5*k2[1],..., 
w(M,j] + .5*k2[M]) 


end of loop 
loop over i=1towM 
compute k4[i] =h*f({i](tth,w[1,j]+k3[1],..., 
w(M,j] + k3[M]}) 
end of loop 
loop over i=1to™M 


w(li,j+1] = wli,j] + 
{kifi] + 2*k2[i] + 2*k3[i] + k4[i]}/6 


end of loop 
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e/ 


double 
double 
double 
double 
double 


(*rk function) (); 
(*rk source) (); 
(*rk store) (); 
(*rk kuttas) [4]; 
(*rk_comp[4])(); 


/* tells us how to form k's */ 


/* functions called indirectly by k_calc() */ 


double 
sit Hs 
at 3: 
TH. i: 


{ 
} 


double 


to provide compatibility with calling */ 


Ten Tih) A= 
return ((*rk_source)(j,n)); 
rk --23i(n, &, 3,4) = .7* 


N is in { 0...M } = argument number. 

Since we have one argument to FN per equation, 
N will indicate which we are currently being 
asked to provide. Same goes for other RK x 
functions below. */ 


int n: 
int k; 
sae) 
int.2> 
{ 
return((*rk source)(j,n) + .5*rk kuttas[n][(k]); 
} 
double rk_2(n,j,i) 
Ine n: 
int-.j; 
aut i; 
{ 
return (rk 23(n, 0; );2));5 
} 
double rk 3(n,j,i) 
i270. 71; 
aye SS 
Tre. 1: 
{ 
return( rk. 23.(n,1, 371) ): 
} 
double rk 4(n,j,i) 
TFEG. 217 
int-3; 
a 
{ 
return((*rk_source)(j,n) + rk_kuttas[(n](2]); 
} 
/* Here's the integrator!!! */ 
double rk4n(function,wsource,wstore,m,a,b,n,alpha,t,kuttas) 
double (*function)(); /* pointer to function which returns deriv info */ 
double (*wsource)(); /* source of w[{i,j] values */ 
double (*wstore)(); /* function which stores w[(i,j] values for us */ 
int m; /* number of equations */ 
double a; /* start of interval */ 
double b; /* end of interval */ 
acto; /* number of points */ 
double alpha[]; /* array of initial values */ 
double t{[]; /* array where we store times */ 
double kuttas[][4]; fee a oe A Botta. (kei 2, b3 ke 1=t sh) 7 
{ 
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C/Unix (Listing Continued, text begins on page 92) 
Listing Four 


} 


register int i; /* looping variable */ 
register int j; /* looping variables */ 
double time; 


double h = (b-a)/(double)n; /* step size */ 

double rk_k2(),rk_ k3(),rk_k4(); /* include for emphasis */ 
rk function: .=.function; 

rk kuttas = kuttas; 

rk source = wsource; 

rk store = wstore; 

rk _ comp(O) = rk_1; 

ee. comp th] = 2K 2; 

rk comp[2] =: rk_3; 

rk comp(3) = rk_4; 


/* First assign initial values */ 


for (i = O;i < m;itt) 
(*rk_ store)(0,i,alpha[i]); 


/* Now loop through the necessary loop, calculating 
each K value for each equation in each time step. */ 


for() = 053 <> n; j++) /* n time steps */ 
time = a + h*(double)j; /* compute time */ 
t{j] = time; /* also save it */ 


rk4_ in(m,j,time,h); 


/* rk4 in(): compute one solution step for n equations */ 


rk4 in(m,j,time,h) 


int: m: 
inti43 
double 
double 


{ 


} 


/* time step we're working on */ 


time; 
ny 


register int k; /* k calculation. loop. */ 
register int i; /* m equations loop */ 
double value; /* temporary */ 


for(k=0O;k < 4;k++) /* k compute loop */ 
k_calc(m,k,j,time,h) ; 


for(i=0O;i<m; i++) /* compute new w[{i,j]'s j fixed here */ 
{ 
value = (*rk_source)(j,i) + .166666667*(rk kuttas[i][0O] + 
2.0*(rk_ kuttas[iJ[{1] + rk_kuttas[{i][2]) 
+ rk _ kuttas[ij][3]); 
7*® value for: wi. 34 - *7 
(*rk_ store) (j+1,i,value); /* save this hard got number */ 


/* k calc(): compute rk coefficients for fixed j */ 


108 


(Continued on page 110) 


Dr. Dobb’s Journal, October 1984 










The BDS C Ponaier ee 


“Performance: Excellent. 
Documentation: Excellent. 
Ease of Use: Excellent.” 


That’s what InfoWorld said when we introduced 
the BDS C Compiler four years ago. Today, the 
updated BDS Version 1.5 is even better. 

First, the BDS is still the fastest CPM/80-C 
compiler available anywhere. 

Next, the new revised user’s guide comes 
complete with tutorials, hints, error messages and an 
easy-to-use index — the perfect manual for beginner 
or seasoned pro. 

Plus, the following, all for one price: Upgraded file | 
searching ability for all compiler/linkage system files. | | 
Enhanced file I/O mechanism that lets you _ 
manipulate files anywhere in your system. Support @ Directly generates .EXE or .CMD files. 


system for float and Jong via library functions. An | Follows K & R—works with existing programs. 
ee Peres wees a a | Comprehensive standard C library with source. 
Full source code for libraries and run-time package. . 
Sample programs include utilities and games. @ Integrated package; nothing else needed. 

M@ Works under PC-DOS*, MS-DOS*, CP/M-86*. 


Don’t waste another minute on a slow language 
processor. Order now. More productivity, less frustration, better programs. 
Complete Package (two 8”SSDD disks, 181-page manual): Instant-C™ is $500. Call or write for more info. 


$150. Free shipping on prepaid orders inside USA. VISA/MC, 






























C Programmers: : 
Program three times faster 


with Instant-C™ 


Instant-C™ is an optimizing interpreter for C that 
makes programming three or more times faster. It 
eliminates the time wasted by compilers. Many 
repetitive tasks are automated to make program- 
ming less tedious. 


M Two seconds elapsed time from completion of 
editing to execution. 


@ Symbolic debugging; single step by statement. 


M Compiled execution speed; 40 times faster than 
interpreted Basic. 


@ Full-screen editor integrated with compiler; 
compile errors set cursor to trouble spot. 




























































C.O.D.’s, rush orders accepted. Call for information on other Ration al (617) 653-6194 
disk formats. BDS C is designed for use with CP/M-80 operating systems, version 2.2. oe). Box 480 
or higher. It is not currently available for CP/M-86 or MS- DOS. Systems, Inc. N atick, Mass. 01760 







Trademarks: MS-DOS (Microsoft Corp.), PC-DOS (IBM), CP/M-86 (Digital Research, 
Inc.), Instant-C (Rational Systems, Inc.) 


BD Software, Inc. 
P.O. Box 2368 

Cambridge, MA 02238 
(617) 576-3828 


Midiay 





Circle no. 7 on reader service card. 


HOW FAST WOULD THIS PROGRAM RUN 
IF IT WERE COMPILED USING YOUR PASCAL COMPILER ? 


PROGRAM SIEVE Chances are, not as fast as it would if it were compiled 
{ THE ERATOSTHENES' SIEVE BENCHMARK } using SBB Pascal. 


ENE “Ope: As the following benchmarks show, SBB Pascal 


VAR I, PRIME, K. COUNT, ITER : INTEGER: outperforms all other Pascal compilers for the PC in terms 
FLAGS : ARRAY [ 0..SIZE ] OF BOOLEAN: of speed, code size and .EXE file size: 


Execution Code EXE File 


BEGIN 
Bar ree ‘START’ ): Time Size Size 
FOR i = 1 TO 10 DO BEGIN (secs) 


0 

FOR | :- 0 TO SIZE DO FLAGS[ |] -- TRUE: sa 

FOR | = 0 TO SIZE DO SBB Pascal 12:20 i 
IF FLAGS[1] THEN BEGIN 

PRIME “= 1+ 1+ 3: 

K = | + PRIME: 

WHILE ies SIZE E 00 BEGIN 
Kae PRIME Pascal/MT+ 86 14.70 10752 


END; 
COUNT := COUNT + 1 
END; Turbo Pascal 15.38 9029 


END: 
WRITELN( COUNT, ‘PRIMES’ ) 
END. 


Circle no. 56 on reader service card. 


MS-Pascal 11.70 27136 


Development Package 
$350.00 


Software Personal Use Compiler Package 
iol also available Software Building Blocks, Inc. 
B es $95.00 Post Office Box 119 


607/272-2807 


Call for free brochure with full benchmarks. Ithaca, New York 148S1-ON9 


SBB Pascal is a trademark of Software Building Blocks, Inc. MS-Pascal is a trademark of Microsoft Corporation. Pascal/MT+ 86 is a trademark of Digital Research, Inc. 
Turbo Pascal is a trademark of Borland International. 
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C/ Unix (Listing Continued, text begins on page 92) 
Listing Four 


k calc(m,k,j,time,h) 


int m; 
int k; 
Sne 3; 
double time; 
double h; 
{ 
register int i; 
double tval; 
switch(k) 
{ 
case O: 
tval = time; 
break; 
case 1: 
case 2: 
tval = time + .5*h; 
break; 
case 3: 
tval = time + h; 
break; 
} 
for(i=0O;i<m; i++) /* used to be 1;<=m_ #¥*/ 
{ 
rk_kuttas(iJ{k] = h*(*rk_function) (j,i,tval,rk_comp[k]); 
} 
} End Listing Four 
Listing Five 
/ * 
program: rksti.c 
created: 03-Nov-83 
by: A. Skjellum 
modified: 14-Nov-83 
by: M. J. Roberts 


Copyright 1983, 1984 (c) California Institute of Technology. 
All rights Reserved. This program may be freely distributed 
for all non-commercial purposes but may not be sold. 


purpose: illustrate the use of rk4n program 
uses: rk4n() (rks.c) 
summary: 


integrates the differential equation: 


VST yee b= ber 
y(O) = 5.0. 


for which the exact solution: 
y(t) = t + 5exp(-t) is known. 
Integrates the same equation as rktesti 


but using the more general equation solver, 
rk4n(). This run is exactly the same as for 
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rktesti, except that, rather than trying to solve 
exactly the same equation, we will solve a 
"system" of one differential equation. 


th 


/* constants */ 


#define SYSIZE 1 /* number of functions in system */ 
#define YZERO a0 /* “initials vaiue ‘for: y.*/ 

#define TSTART 0.0 /* starting time for integration */ 
#define TEND 10.0 /* ending time for integration */ 
#define STEPS 50 /* 50 steps in integration */ 


/* variables external to all functions */ 
double wvalue[STEPS+1][SYSIZE]; 
double yarray[STEPS+1][SYSIZE]; 


double tarray[STEPS] ; 
/* integrated solution stored here */ 


/* subroutines: */ 

/* exact(): returns exact solution value, given t */ 
double exact(t) 

double t; 

{ 


extern double exp(); /* exponential function */ 


return((t + YZERO*exp(-t))); 
} 


/* tn j,4,¢,y¥):. return £(t,y):- given: t,y values .*/7 


double fn(j,i,t,y) 


ENT}; 
| .fet 4: 
double t; 
| double (*y)(); 
{ 
double a,b; /* temporary storage space */ 
if * 
differential equation is y' t+y=t+1 
therefore, .y' =:t. # iP --y. 
"7 
a. = -(*¥¥)10,5,4)3 /* calculate function 
Note that the ZERO was passed so as to 
allow the function to know which argument 
we are talking about -- in this case, 
we only need one argument evaluated, so 
pass it O to indicate the first (zeroeth, 
actually) argument is to be calculated. */ 
bs: f+ 1.0 ~ a; /* and figure out the rest of it */ 
return(b); 
} 
/* store(): the routine to store away the W values for later reference */ 
double store(row, col, value) 
int Yow, col; /* location to store the value */ 
double value; /* the actual value to store */ 


{ 
(Continued on next page) 
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C/Unix (Listing Continued, text begins on page 92) 
Listing Five 


wvalue[row][colj=value; 
return (value); 


} 
/* source(): return the W value referenced by input parameters */ 
double source(row,col) 


int row, col; /*. location: te:teek up..*/ 


{ 
} 


return (wvalue[row][col]); 


/* solutn(): print solution step at console */ 


solutn(j,i) 
INTs jas /* element numbers’ */ 
{ 

double time; 

double ex; 

double approx; 


time = tarray[j]; 
ex = exact(time) ; 
approx = source(j,i); 


printf("t = %7.3e, y = %7.3e, y_exact = %7.3e, diff = %7.3e\n", 
time,approx,ex,approx - ex); 
/* main program: */ 
main() 
/* external declarations */ 
double store(), source() ; 
double fn(); /* ensure that this is typed as double */ 
/* local variables: */ 


register int i,j; 


double init(1]; /* initial condition matrix */ 
/* begin code: */ 


printf("\n\nrktesti.c as of 03-Nov-83\n\n"); 

Prantl ("Integrates:: ye fy = 1 +t for\n\n" ); 

printf("t = *7.3e to *7.3e, with %u steps\n\n", 
TSTART,TEND,STEPS) ; 


J 
integrate the answer from t = 0 to t = 10 sec 
STEPS points. 
TF 
init{0O] = YZERO: /* set up initial condition matrix */ 


rk4n(fn,source,store,SYSIZE,TSTART,TEND,STEPS, init, tarray,yarray) ; 
/* compute the answers for 1 function */ 


(Continued on page 114) 
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GET “C” APPLICATIONS OFF TO A FLYING START 


WITH 
C-TREE™ C-SORT™ 
RECORD MANAGEMENT SORT/SELECT/MERGE 
SUBSYSTEM SUBSYSTEM 


- Advanced B+ Tree Structure 
* Very Fast And Efficient 
* Unlimited # Of Keys 


Keys May Be Duplicate, LIFO/ 
FIFO, Modifiable 


* Record Locking Calls 
* Random And Sequential Access 


¢ Utilities To Add/Delete Keys And 
Fields, Rebuild Files 


* Error Processing Interface 


Store Data Dictionary In File 


* Advanced Quick/Tournament 
Combination Sort 


* Sort C-Tree Or Sequential Files 


* Automatically Uses All Available 
Memory, And Merges On Disk 


* Sorts On Up To 50 Fields Or 
Partial Fields; Unlimited 
Number Of Selection Criteria 


* Creates Tag (Index) Sorting File, 
Leaves Original File Intact 


ordering information 


SINGLE UNIT OBJECT LICENSE 
$99 per program plus shipping. 
Format 5% Disk MS-DOS 
Compatible Linkable 8086-file 

format modules for Lattice-C or 
Microsoft-C Compliers, others 

soon. Complete documentation. 


AccuData Software” 
Dept. D-9 
P.O. Box 6502 
Austin, Texas 78762 


SOURCE CODE LICENSE 
$249 per program plus shipping 
(single unit). “C” Source Code is 
well documented. Allows modification 
to suit application. Credit allowed 
for object license 

MULTIPLE COPY LICENSE 
Multiple copies of object code 

or source code derivatives may 

be made with this license at 

a very low unit cost. 


Telephone Orders Accepted 
Visa/Mastercard 


Call Collect (512) 476-8356 


Circle no. 2 on reader service card. 


TOTAL CONTROL: 


FORTH: FOR Z-80®, 8086, 68000, and IBM® PC 


Complies with the New 83-Standard 
GRAPHICS e GAMES e COMMUNICATIONS e ROBOTICS 


DATA ACQUISITION 


@ FORTH programs are _ instantly 
portable across the four most popular 
microprocessors. 

@ FORTH is interactive and conver- 
sational, but 20 times faster than 
BASIC. 

@ FORTH programs are highly struc- 
tured, modular, easy to maintain. 

@ FORTH affords direct control over 
all interrupts, memory locations, and 
i/o ports. 

@ FORTH allows full access to DOS 
files and functions. 

@ FORTH application programs can 
be compiled into turnkey COM files 
and distributed with no license fee. 

@ FORTH Cross Compilers are 
available for ROM’ed or disk based ap- 
plications on most microprocessors. 


Trademarks: IBM, International Business Machines 
Corp.. CP/M, Digital Research Inc.,; PC/Forth+ and 
PC/GEN, Laboratory Microsystems, Inc 


== [Mj 


Laboratory Microsystems Incorporated 
Post Office Box 10430, Marina del Rey, CA90295 
Phone credit card orders to (213) 306-7412 


PROCESS CONTROL 


FORTH Application Development Systems 
include interpreter /compiler with virtual memory 
management and multi-tasking, assembler, full 
screen editor, decompiler, utilities and 200 page 
manual. Standard random access files used for 
screen storage, extensions provided for access to 
all operating system functions. 


Z-80 FORTH for CP/M® 2.2 or MP/M II, $100.00; 
8080 FORTH for CP/M 2.2 or MP/M II, $100.00: 
8086 FORTH for CP/M-86 or MS-DOS, $100.00: 
PC/FORTH for PC-DOS, CP/M-86, or CCPM, 
$100.00: 68000 FORTH for CP/M-68K, $250.00. 


FORTH + Systems are 32 bit implementations 
that allow creation of programs as large as 1 
megabyte. The entire memory address space of 
the 68000 or 8086/88 is supported directly. 


PC FORTH + $250.00 
8086 FORTH +for CP/M-86 or MS-DOS $250.00 
68000 FORTH + for CP/M-68K $400.00 


Extension Packages available include: soft- 
ware floating point, cross compilers, INTEL 
8087 support, AMD 9511 support, advanced col- 
or graphics, custom character sets, symbolic 
debugger, telecommunications, cross reference 
utility, B-tree file manager. Write for brochure. 
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C/ Unix (Listing Continued, text begins on page 92) 
Listing Five 


7? Print: out solution = */ 


for ( j=0; j<STEPS; j++) /* print solution */ 
solutn(j,0); 


printf("\n\nEnd of execution\n\n"); 


} End Listing Five 
Listing Six 
/ x 
program: rkst2.c 
created: 03-Nov-83 
by: A. Skjellum 
modified: 14-Nov-83 
by: M. J. Roberts 
and: 5-Dec-83 
by: M. J. Roberts 
modified: 25-Jul-84 
by: A. Skjellum 


Copyright 1983, 1984 (c) California Institute of Technology. 
All rights Reserved. This program may be freely distributed 
for all non-commercial purposes but may not be sold. 


purpose: illustrate the use of RKS program 
update: to test the rk4n() subroutine using a system 
of two differential equations. 


uses: rk4n() (rks.c) 
summary: 


integrates the differential equation system: 


10 
4 


ul'(t) = 8u2(t) u1(0) 
u2'(t) = 2ul1(t) u2(0) 


for which the exact solution is known to be: 
ul(t) = 12exp(4t) - 2exp(-4t) 
u2(t) = 6exp(4t) + exp(-4t) 

ay 


/* constants */ 


#define SYSIZE 2 /* number of functions in system */ 
#define Y1ZERO 10.0 /* initial value for first equation */ 
#define Y2ZERO 7.0 /* initial value for other equation */ 
#define TSTART 0.0 /* starting time for integration */ 
#define TEND £5 /* ending time for integration */ 
#define STEPS 50 /* 50 steps in integration */ 


/* variables external to all functions */ 
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double wvalue[STEPS+1][SYSIZE]; 
double yarray(STEPS+1](SYSIZE],tarray[STEPS]; 
/* integrated solution stored here */ 


/* subroutines: */ 


/* exact(): returns exact solution value, given t */ 


double exact(n,t) 
int n; /* which equation is it? 0O or 1? #*/ 
double t; 


{ 


extern double exp(); /* exponential function */ 


/* This must find solutions for both U1 and U2. The 
exact solutions are given in the header comments to 
this program, above. */ 


switch (n) 
{ 
case 0: 
return(12*exp(4*t) - 2*exp(-4*t)); 
case 1: 
return( 6*exp(4*t) + exp(-4*t)); 


/* fn(j,i,t,y): return f(t,y) given t,y values */ 


double fn(j,i,t,y) 


int: 4: 
int i:: 
double t; 
double (*y)(); 
{ 
switch (i) 
{ 
case O: 
f* elt € 8) 8: * 422). *7 
return(8*(*y)(1,j,i)); 
case 1: 
fe edt tty = 2%. use ts 
return(2*(*y)(0,j,4i)); 
} 
} 
/* store(): the routine to store away the W values for later reference */ 


double store(row, col, value) 
int row, col; /* location to store the value #*/ 
double value; /* the actual value to store ¥*/ 


{ 
wvalue[row][col]=value; 
return (value); 


} 


/* source(): return the W value referenced by input parameters */ 


double source(row,col) 
int row, col; /* location to look up */ 


{ 
} 


return (wvalue[row][col]); 


/* solutn(): print solution step at console */ 


(Continued on next page) 
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C/ Unix (Listing Continued, text begins on page 92) 
Listing Six 


solutn(j,i) 


int j,4; 
{ 


} 
/* main 


main( ) 
{ 
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/* element numbers */ 
printf("\nt=%7.3e, y*¥1d=%*7.3e, y%¥1ld exact=%7.3e, diff=%7.3e", 
tarray(j),i,source(j,i),i,exact(i,tarray[j]), 
source(j,i) - exact(i,tarray[j])); 
program: */ 
/* external declarations */ 
double store(), source(); 
double fn(); /* ensure that this is typed as double */ 
/* local variables: */ 
register int i,j; 
double init({SYSIZE]; /* initial condition matrix */ 
/* begin code: */ 
printf("\n\nrkst2.c as of 25-Jul-84\n\n"); 
printt(” Integrates the differential equation system:\n\n"); 
printf(" “Ul (t}.= 8a2z(t) ui(O) = 10\n"); 
printf (" Ue" {8} = ui {<) uw2 (Oye 7ixn* Tt; 
printf (" for which the exact solution is known to be:\n\n"); 
Sr inict (" ul(t) = 12exp(4t) - 2exp(-4t)\n"); 
printt t” u2(t) = 6exp(4t) + exp(-4t)\n\n"); 
SFintyt (" for t = *7.3e to *7.3e, with *u steps\n\n", 
TSTART,TEND,STEPS) ; 
je 
integrate the answer from t = 0 to t = 10 sec 
STEPS points. 
wi 
init[{0O] = Y1ZERO; /* set up initial condition matrix */ 
init{1] = Y2ZERO; 


rk4n(fn,source,store,SYSIZE,TSTART,TEND,STEPS,init,tarray,yarray) ; 
/* compute the answers for 1 function */ 


/* Print out solutions */ 
for(i=0;i<SYSIZE; i++) 


for (j=0; J<STEPS; j++) /* print solution */ 
solutn(j,i); 


printf("\n\nEnd of execution\n\n"); 


End Listings 
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CP/M Techniques 


Ken Barbier 

Published by Prentice-Hall, Inc. 
225 pages 

Reviewed by Dennis Cashton 


If you are as much of a CP/M nut as I 
am, this book will become indispens- 
able for you. In a very clear, consise, 
and friendly manner, Ken Barbier 
manages to discuss the real “guts” of 
CP/M. If you have worked with modi- 
fying your BIOS using assembly lan- 
guage under CP/M and have had to do 
anything that requires looking at the 
Digital Research documentation, your 
hair is probably lying in piles on the 
floor at the foot of your disk drives. 
This book takes the mystery out of all 
the vague topics about which “mother 
never told you.” 

I consider Mr. Barbier’s previous 
work CP/M Assembly Language Pro- 
gramming a prerequisite for reading 
this book, but even if you have only a 
working knowledge of the mechanics 
of CP/M with an assembler, that 
should be good enough to get you 
through the book. In fact, even if you 
were a complete novice to CP/M, you'd 
just about be able to read and under- 
stand CP/M Techniques. (The “nov- 
ice”’ level of CP/M is obtained by read- 
ing and not understanding the Digital 
Research documentation provided. ) 

The book starts with a general over- 
view of a computer, what constitutes 
hardware, software, and firmware, and 
what constitutes an application pro- 
gram. Barbier follows this with a brief 
glance at the function of an operating 
system, and then jumps directly into 
CP/M. From this point on, the book is 
packed with sample programs and sub- 
routines, each of which is immediately 
useful as well as being an excellent ex- 
ample of good programming practice. 
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In fact, while reading the book, I had 
to run to the computer and enter each 
of the programs, just to make sure that 
they really do work. They do. 

He goes on to a discussion of the me- 
dium of floppy disks. This section cov- 
ers everything from history to current 
standards, and directions for the future 
(plus some more sample programs). 
Finally, he plunges head first into the 
part of CP/M that scares the most peo- 
ple: the BIOS. All the information and 
techniques illustrated in the prior 
chapters are brought to bear on the 
task of creating a customized BIOS for 
a user’s own hardware configuration. 
What makes this section specially 
clear is the use of real-life examples. 
The book is full of them. They make 
such as abstract concepts like the IO- 
BYTE much easier to understnd, most- 
ly because you can see a real case of 
how and why each is used. 

After you finish this book, it no 
longer seems like a monumental effort 
to get your CP/M to work with multi- 
ple printers, or different disk drives, or 
even a hard disk drive. You walk away 
from reading this book with a feeling 
that you can now conquer the (CP/M) 
world. 

The book includes two appendices. 
The first is the ASCII code with mne- 
monics, keystrokes, hex, and function. 
The second is a listing of all the general 
purpose subroutines printed in the book, 
and a brief synopsis of their function. 

In summary, if you have ever had a 
good mystery novel that you just 
couldn’t put down, then you will un- 
derstand the feeling you get from read- 
ing this book. It’s so full of useful and 
concisely presented information that it 
is a pleasure to read. Even if you are 
not interested in customizing your own 
BIOS, this book is worth having for the 
programming techniques alone. If, on 
the other hand, you have the nerve to 


want to mess with your own hardware 
and BIOS, you'll find this book an in- 
valuable tool. 


The RS-232 Solution 
Joe Campbell 

Published by Sybex, Inc. 

$16.95, 225 pages, illustrated, 
paperback 

Reviewed by Dennis Cashton 


Here’s the plot: You get your new 
printer, the one that will do everything 
you ever wanted in a printer and more: 
high speed dot-matrix ‘“‘correspon- 
dence quality” graphics with a 400K 
buffer. You assume that because the 
printer is “RS-232 compatible” you 
can plug it into the RS-232 port on the 
back of your computer, and everything 
will work fine. 

Rushing home from the store with 
the printer, you tear the packing mate- 
rial off like it’s wrapping on a box un- 
der the Christmas tree, glance at the 
cover of the instruction book, and 
lightly toss it aside. You don’t need to 
look at it because “‘if it’s RS-232, all I 
have to do is plug it in!’ Wrong! You 
hook up the cable you bought with it 
(that the store owner said was a “‘stan- 
dard” cable). If you’re really lucky, the 
printer and the computer both have fe- 
male connectors, because the cable you 
bought has male connectors on both 
ends. You turn on the computer. That 
part you’ve done a hundred times be- 
fore, and you get no surprises. You 
turn on the printer, and the power light 
comes on, the printhead jumps a little, 
and the motor whirs. So far, so good. 

You boot up CP/M and get no sur- 
prises there. With you heart in your 
throat, you hit control-p to toggle the 
printer on, and zappo! No more CP/M 
prompt! The keyboard is dead!!! What 
happened? Or better yet (more mysti- 
fying anyway) you get the prompt 
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back but you try to print something 
and nothing comes out. Is it the cable? 
The baud rate? Is the printer no good? 
What do you do now? 

Well, this is a good time to look at 
the instructions book for the printer, 
the computer, and the operating sys- 
tem. Barring all complications, 
chances are the manufacturers of your 
printer and computer haven’t totally 
lied about their RS-232 compatibility, 
but there are many ways to stretch the 
issue. 

The RS-232 Solution will help any- 
one to connect any two RS-232 de- 
vices. It’s the kind of reference book 
many of us need—there are, however, 
a few ommissions and discrepancies in 
this one. Campbell is careful to explain 
everything there is to know about RS- 
232, including all the buzzwords; un- 
fortunately, there are some gaps in re- 
lating the buzzwords to the real signals 
and their meanings. 

The author wisely sets up a conven- 
tion in labeling his data-flow dia- 
grams. He starts out writing the names 
of inputs in lowercase letters, marking 
them with a ?, and writing outputs in 
uppercase letters, marking them with a 
!. On the very next page (and several 
other times in the book), he violates 
that convention. Although a minor in- 
convenience, it illustrates the nature of 
some of the book’s flaws. I got the feel- 
ing that the book needed a technical 
wizard as an editor. 

In spite of this minor beef, this book 
contains a wealth of knowledge about 
interfacing RS-232 devices. A set of 
instructions is developed that, if fol- 
lowed, will allow any real RS-232 de- 
vice to connect to any other. The book 
is structured well, and can take even 
the total novice through the logic and 
signals of the RS-232 standard. 

In explaining each one of the signal 
lines, the author uses many illustra- 
tions that make it easy to understand 
who’s doing the talking and who’s do- 
ing the listening. He also uses (usually 
humorous) cartoons illustrating excel- 
lent analogies to the purpose and func- 
tions of the handshaking lines, making 
these abstract concepts clear. There is 
even a chapter explaining the UART 
and how it functions in a serial inter- 
face. The book discusses signaling 
buffer full, pausing the transmitter 
and receiver, and generally what hand- 
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shaking is all about. There is even 
some mention of software handshak- 
ing, but since this book deals mostly 
with the hardware end of things, it is 
understandably brief. 

Eventually the book plunges the 
reader, who is armed only with the 
knowledge and theories gained from 
the previous chapters, into the real 
world of finicky devices. Topics with 
hobbyist-sounding connotations like 
“tricking the interface’ come up, but 
as the reader soon finds out, this sort of 
fiddling is necessary in the real world. 
At this point in the book, you get the 
facts of “what happens if I don’t do 
this.” Once you get through the next 
couple of chapters, you are set to try 
things out on a real device. 

In fact, one chapter discusses a sim- 
ple tool that will make it easier to start 
out. I’m sure that many people have 
considered buying one of the “break- 
out boxes” on the market that allows 
them to configure a cable that will 
make their printer (or modem) work 
with their computer. The author de- 
scribes here how to build, at a savings 
of over $100, a simple tool that per- 
forms the same function. I made one 
out of “junk box” parts in a little under 
15 minutes, but if you had to buy all 
the parts new, it would still cost less 
than $20. 

After this, you get to put your hands 
on your devices, and let the sparks fly. 
Actually, Campbell is careful to point 
out what the RS-232 standard says on 
that subject. According to the stan- 
dard, any interface line must be capa- 
ble of withstanding a direct connection 
to any other line without damage to 
the interface or the equipment. So 
there is really no danger of sparks. 
With this knowledge firmly in hand, 
we march on to learn and practice the 
interfacing technique. 

Steps are numbered | through 5 and 
must be completed in order. They are: 
1) Set baud rate 
2) Ascertain sex of the equipment 
3) Satisfy device control logic 
4) Locate the handshaking 
5) Specify the cable 
As we learn later, some of these steps 
get combined, but they are still done in 
this general order. Each one of the 
steps is explained in detail, and you 
may now go happily on your way, con- 
necting DTE’s to DCE’s all day long. 
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A latter section in the book takes 
you step-by-step through five actual 
case studies. They range from the sim- 
plest possible to the very tricky and dif- 
ficult, but each one serves as an excel- 
lent example of all that has come 
before. 

Basically, in spite of some of the 
confusion due to inconsistencies and 
unconnected concepts, this book 
should be on the shelves and work- 
benches of anyone who deals with 
these “universal”? RS-232 devices. You 
could get the information in this book 
elsewhere, but only with much effort. I 
personally expect the pages of my copy 
of this book to become dog-eared and 
dirty. 


The IBM PC Connection 
James W. Coffron 

Sybex Computer Books, 1984 
$16.96, 260 pages 

Reviewed by Eunice B. Ordman 


The JBM PC Connection is a book for 
those with an elementary knowledge of 
BASIC (the IBM version of Microsoft 
BASIC) and no knowledge of electron- 
ics. It is a book for hobbyists, not a 
textbook. The author takes the reader 
step-by-step through both software 
and hardware aspects of interfacing 
the IBM PC. The uninitiated should be 
able to follow the author’s instructions 
but may not understand much of what 
he is doing, particularly at first—Cof- 
fron tends to explain the functions of 
most of the components, without ex- 
plaining how they work. 

Readers will learn how to do sophis- 
ticated things such as building an 
alarm system that tells which switch 
set off the alarm. Other topics include 
computer speech output, temperature 
measurement with the computer using 
an integrated circuit as input, comput- 
er control of a variable speed motor, 
and analog-to-digital and digital-to- 
analog conversion. 

For the uninitiated, Coffron dis- 
cusses a preassembled input/output 
board and then progressing to more 
complex topics, he gives diagrams of 
circuits the reader can build. He does 
not present the reader with a huge 
complicated circuit, but introduces the 
parts of the circuit gradually—it takes 
perhaps four diagrams to present a giv- 
en circuit. He even includes tips on 
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reading schematic diagrams. The 
reader is on his own when it comes to 
soldering, wire wrapping, and so forth, 
but such information is widely avail- 
able. The appendix gives the necessary 
manufacturer’s specifications for each 
integrated circuit used and the name of 
a supplier for each type of part used. 
(The suppliers on his list whom I’ve 
used have very reasonable prices. ) 

Coffron tells how to revise the cir- 
cuits and programs for different cir- 
cumstances. With a few more sen- 
tences, he could have given an 
explanation of address decoding, but 
instead, Coffron contents himself with 
showing circuits that use certain port 
addresses, using those addresses in his 
programs. He gives a diagram of the 
IBM PC Input/Output Connector, 
showing the abbreviations for all 62 
signals, but he does not tell what many 
of the abbreviations stand for. 

I think the average hobbyist will be 
glad that the author did not confuse 
him with unnecessary details. I myself 
would have preferred a bit more expla- 
nation, however. 


Advanced Pascal 
Programming Techniques 
Paul A. Sand 

Osborne/McGraw Hill, 1984 
$14.95, 370 pages 

Reviewed by Bob Langevin 


If L-Name is the name of a computer 
language, your favorite bookseller’s 
shelves are filled with books with titles 
such as Introduction to L-Name, Easy 
L-Name, and L-Name for Beginners. 
When, you wonder, will you get to the 
really advanced stuff? Sand’s new 
book, Advanced Pascal Programming 
Techniques (APPT), is one of the few 
available Pascal texts that will take 
you well past the introductory level. 


Overview 
Sands correctly observes that most in- 
troductions to a computer language 
provide numerous small examples to il- 
lustrate each of the language’s features 
but few texts, if any, show how these 
features are used in building substan- 
tial and meaningful programs. His 
book is a serious attempt to remedy 
this defect. 

In its introductory chapter the book 
discusses ‘‘What is a Good Program”; 


the remaining seven chapters of the 
book are a series of detailed case stud- 
ies, each illustrating important design 
concepts. The chapter titles give a 
good indication of the material cov- 
ered: ““CRT Techniques”; “Interactive 
Input’; ““Crunching Numbers—A 
General Purpose Calculator”; “Text 
File Tools”; ““Games and Strategy”; 
“Simulation and Animation”: “The 
Plane Truth—An Electronic 
Worksheet”. 

Because the Apple II version of 
UCSD Pascal was used to develop the 
programs in the book, the appendix is 
especially useful—it discusses the 
problems of program portability and 
shows how features unique to UCSD 
Pascal and the Apple II can be imple- 
mented in the context of other Pascal 
compilers on other machines. 


Features 

The first chapter discusses the features 
that make a good program, viewed 
from both the user’s and the program- 
mer’s point of view, an important dis- 
tinction that is often not made. From 
the user’s viewpoint, the important 
features are usefulness, ease of use, ef- 
ficiency, flexibility, reliability, and 
suitability; from the programmer’s, 
they are readability, portability, clar- 
ity, and modularity. Sand emphasizes 
the need to recognize that, during its 
lifetime, a real program will be repeat- 
edly fixed, modified, and enhanced— 
often by someone who did not design or 
implement the original. The succeed- 
ing chapters show, by example, how 
the user’s needs can be met and the 
programmer’s objectives achieved. 

It is noteworthy that the design of 
the applications in each of the case 
studies has been carefully crafted so 
that procedures and functions devel- 
oped in one chapter become useful 
tools in the design and implementation 
of the case studies in succeeding chap- 
ters. There is a definite flavor of the 
Unix design and development philoso- 
phy here. 

In the second chapter, on CRT tech- 
niques, Sand shows how to write a Pas- 
cal procedure to manage the cursor 
and screen control features of a CRT. 
These are used in implementing a sim- 
ple program that creates, displays, and 
solves mazes. This program is of little 
inherent interest, and the brief discus- 
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sion of CRT management procedures 
in the beginning of the chapter could 
have better appeared as an introduc- 
tion to the next chapter of interactive 
input. 

Unquestionably, the effective man- 
agement of user interaction with a pro- 
gram is of critical importance in 
achieving user satisfaction and con- 
trolling input errors of all kinds. Sand, 
in Chapter 3, provides a good discus- 
sion of interactive input and error con- 
trol in the course of developing “‘gas- 
log,’ an application program that 
maintains and reports gasoline usage 
data for an automobile. Surprisingly, 
this deceptively simple program pro- 
vides the motivation for developing 
procedures for string input and string 
manipulation, boolean and fixed-point 
numeric input, date handling, and a 
variety of type transformers to convert 
between string and various numeric 
types. 

In Chapter 4 Sand uses the develop- 
ment of a general-purpose calculator 
as a vehicle for addressing error con- 
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trol, a data structure for “‘extended”’ 
real numbers, a simple parser of user 
input, and functions to convert back 
and forth between strings and the “ex- 
tended” reals that Sand has devised. 

Next Sand discusses text file tool. 
These include tools to open or close an 
existing text file to read a string from 
or write a string to a text file, to create 
a new text file for output, and to get a 
text filename from the user. These 
functions are used to develop a simple 
file copy program and, much more in- 
terestingly, a rather elegant program 
for printing text files. The latter offers 
the opportunity for a good discussion 
of the use of escape sequences for ini- 
tializing a printer and the incorpora- 
tion of procedures for changing print 
parameters to control the format of the 
output. 

The print program also supports 
chaining of files to be printed. Aside 
from its utility as a learning device, 
this print program is a useful tool for 
any program developer. In addition if 
used with a good full-screen text edi- 


tor, the combination makes a service- 
able word-processing package. 

Chapter 6 is devoted entirely to the 
design and implementation of a pro- 
gram to play Reversi—with a brief 
side trip to describe Apple II graphics 
capabilities. While this has some inter- 
est if you happen to want a program to 
play Reversi, the design considerations 
are so unique to the structure of this 
particular game and game board that 
you can neither generalize nor extend 
considerations of Reversi’s appropriate 
data structures and procedures for 
moving pieces and position evaluation 
to other games. If you are not a Re- 
versi fan, you can skip this chapter 
without losing much. 

Next, simulation and animation are 
illustrated by designing and imple- 
menting two simulations: “‘bounder,” 
which simulates the motion of several 
balls moving inside a box under the in- 
fluence of a constant acceleration 
field, and “‘isaac,” which uses many of 
the same program components and 
simulates the motion of several balls 
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The Writer’s Really Incredible Text Editor lives up to its 
name! It’s designed for creative and report writing and 
carefully protects your text. Includes many features 
missing from WordStar, such as_ sorted directory listings, 
fast scrolling, and trial printing to the screen. All editing 
commands are single-letter and easily changed. Detailed 
manual included. Dealer inquiries invited. WRITE is 
$239.00. 
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moving under their mutual gravita- 
tional attraction. Several sets of initial 
conditions are provided for “isaac” 
that result in simulations of earth-sun, 
earth-moon-sun, and Lagrangian sys- 
tems. The displays associated with 
both simulations depend entirely on 
the graphics display capabilities of the 
Apple II and would require major revi- 
sion to accommodate the graphic char- 
acteristics of other computer systems. 

Sand’s book concludes with the de- 
velopment of “‘pascalc,”’ a basic but us- 
able spreadsheet program. Although 
this program does not approach the so- 
phisticated capabilities of commercial- 
ly available spreadsheet programs, it 
affords a useful study of Pascal proce- 
dures for dynamic memory manage- 
ment. In addition, and since any useful 
spreadsheet has dimensions substan- 
tially larger than the available screen 
area, ““pascalc”’ includes the develop- 
ment of effective screen management 
procedures. As in the preceding chap- 
ters, Sand has taken some care to de- 
sign “‘pascalc” so that it makes sub- 
stantial use of procedures and 
functions developed earlier in the 
book. 

The book is strengthened by the in- 
clusion of suggestions and recom- 
mended reading at the end of each 
chapter. The suggestions, some of 
which are quite challenging (and time- 
consuming), address possible and de- 
sirable enhancements to each chapter’s 
program. The references included in 
the recommended reading are usefully 
annotated to indicate their relevance to 
the text—a uniformly desirable 
procedure. 


Evaluation 

There is no doubt that you can improve 
prove your programming skills by 
careful study of Sand’s book, especial- 
ly if you actually work through in de- 
tail the sections of interest to you. His 
book failed, however, to meet my ex- 
pectations in several important 
respects. 

First of all, the book is too “even.” 
Sand gives you no indication whatso- 
ever of the relative importance or gen- 
eral utility of any of the ideas, proce- 
dures, or functions discussed. A 
twelve-line procedure to send a termi- 
nation sequence to a printer, for exam- 
ple, receives neither more nor less em- 
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phasis than “stor,” which converts a 
string into a real number. 

Second, because the book is struc- 
tured around explicit case studies, re- 
lated topics end up scattered through 
several chapters. By way of example, 
various functions to convert between 
strings and numeric data types appear 
in chapters 3, 4, 6, 8, and 9. Asa result, 
the basic characteristics of such type 
conversions are never developed and 
presented. Data structures likewise 
“pop up” when they are required, so 
that an organized view of data struc- 
tures and their relationships is entirely 
absent. 

Finally and again due to its struc- 
ture, the book isn’t very suitable for 
reference purposes—you can’t really 
look anything up in it. As indicated 
earlier, the table of contents is only 
eleven lines long, so it isn’t of much 
help. The index isn’t much better, par- 
ticularly because most index entries 
reference data structures, procedures, 
and functions that are unique to the 
book’s case studies. When the entries 
do purport to be more general, they are 
often nearly useless; for example, un- 
der the major heading of Algorithms 
the only subheadings that appear are 
Minimax and Shell sort! 

In summary, Advanced Pascal Pro- 
gramming Techniques does develop 
numerous useful tools that are applied 
to the design and implementation of 
substantial programs. It does not, how- 
ever, live up to its title. Techniques, as 
such, are never really discussed. You 
won’t find in the book an organized 
presentation of typical ‘‘technique” 
topics such as screen design, error 
trapping, algorithm efficiency, pro- 
gram efficiency, data structures, mod- 
ularity, design for maintainability, 
program testing, and documentation. 
If you prefer a strong technique orien- 
tation, you would do much better with 
a book such as Advanced Program- 
ming and Problem Solving with Pas- 
cal (Schneider and Bruell, John Wiley 
& Sons, 1981)—in my opinion, the 
best text available on advanced pro- 
gramming techniques. 


Computer Algebra 
V.162 of Lecture Notes 
in Computer Science 
Edited by J. A. van Hulzen 
Springer-Verlag 


305 pages 
Reviewed by Morton F. Kaplon 


This volume, No. 162 in the Springer- 
Verlag series Lecture Notes in Com- 
puter Science, is the third one dedicat- 
ed to a computer algebra conference. 
The conference, EUROCAL ’83, was 
held at the Kingston Polytechnic, Sur- 
rey, England, from 28 March, 1983 to 
30 March, 1983. EUROCAL repre- 
sents the EUROpean Computer ALge- 
bra Community. The conference was 
organized under the responsibility of 
SAME (Symbolic and Algebraic Ma- 
nipulation in Europe) and in coopera- 
tion with SIGSAM (Special Interest 
Group on Symbolic and Algebraic 
Manipulation) and with the official 
approval of ACM. 

A natural question is ““What is com- 
puter algebra?” A response is best giv- 
en by quoting from the concluding 
statements of Professor van Hulzen’s 
introduction: 

“Many of the conference partici- 
pants recognized that publication of 
real lecture notes about fundamental 
aspects and use of computer algebra, 
for instance in this Series, might large- 
ly contribute in establishing the user 
community and the more general in- 
terest computer algebra deserves, at 
least according to its adepts. This will 
certainly contribute to a communis 
opinio, and probably also to a 
‘definition’.”’ 

Does that leave you puzzled? This 
volume presents 27 research papers, 
organized in seven categories as fol- 
lows: Algorithms 1 — Miscellaneous; 
Applications — Miscellaneous; Sys- 
tems and Language Features; Algo- 
rithms 2 — Polynomial Ideal Bases; 
Algorithms 3 — Computational Num- 
ber Theory; Algorithms 4 — Factor- 
ization; and System Oriented Applica- 
tions. This volume and the papers 
presented are not for the novice and do 
not constitude easy reading. The range 
of material covered is quite broad, cov- 
ering the spectrum from aspects of 
pure mathematics to the realization of 
programs in terms of specific 
hardware. 

The first paper, entitled “Integra- 
tion—What do We Want from the 
Theory?”, reflects one end of that 
spectrum. The author, in discussing 
the state of the theory relating to the 


123 


integration of algebraic functions, 
proves an existence theorem using a 
non-constructive proof—certainly, not 
a very useful result for those interested 
in writing programs. At the other end 
we have “Implementing REDUCE on a 
Microcomputer” (this is not a recipe) 
and “The Design of MAPLE: A Com- 
pact, Portable, and Powerful Comput- 
er Algebra System.” The latter will 
yield to the programmatically inclined 
a sense of the aims of Computer Alge- 
bra as reflected in software. 

Do not be misled, however. As not- 
ed, the range of Computer Algebra is 
broad, but that range does include sig- 
nificant aspects relating to artificial in- 
telligence. There also are articles that 
are certainly germane to developments 
in microcomputer software and _ per- 
haps even to hardware at a very basic 
level. These include, among others, “A 
Knowledge-Based Approach to User- 
Friendliness in Symbolic Computing,” 
“Computer Algebra and VLSI,” and 
‘“The Bath Concurrent LISP Ma- 
chine.” If you want to get a feel for 
what is going on at the frontier of this 
interesting and important field, a few 
dedicated hours of selective reading 
from this volume may prove quite in- 
formative and even potentially useful. 
And if you know LISP, you will even 
occasionally feel at home. 


New Books 


In addition to books we formally re- 
view, we See lots of titles that we think 
you might as least want to know 
about. We will from time to time pro- 
vide a list of such books along with a 
brief impression or description. Here 
is our first batch. 


Ada—An Advanced 

Introduction Including 

Reference Manual for the Ada 
Programming Language 

Narain Gehani 

Prentice-Hall, Englewood Cliffs, New 
Jersey, 1984. 

$19.95, 291 pages 

One thick book. 


Advanced Programming in 
Microsoft BASIC 

Gabriel Cuellar 

Reston Publishing, Reston, Virginia, 
1984. 
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$16.95, 152 pages 
A “second” book on BASIC. Contains 
programming tools and hints. 


Directory of Public Domain 

(And User-Supported) 

Software For the IBM 

Personal Computer 

PC SIG 

PC SIG, Santa Clara, California, 
1984. 

$4.95, 109 pages 

The PC Software Interest Group’s 
directory. 


Free Software For the IBM PC 
Bertram Gader and Manuel V. Nodar 
Warner, New York, 1984. 

$8.95, 462 pages 

Software on 45 electronic bulletin 
boards. 


Interactive Programming 
Environments 

David R. Barstow, Howard E. Shrobe, 
and Erik Sandewall, eds. 
McGraw-Hill, New York, 1984. 
$34.95, 570 pages 

Adele Goldberg on Object languages, 
Brian Kernighan on Unix, Terry Win- 
ograd looking beyond programming 
languages. 


Invitation to Ada 

Condensed Version 

Harry Katzan, Jr. 

$14.95, 166 pages 

Petrocelli, New York, 1984. 
Hospitable Harry Katzan, Jr., has 
written a series of “Invitiation to—”’ 
books for Petrocelli. Here, he invites 
the almost-beginner to sample the ru- 
diments of the language they speak at 
the Department of Defense. 


Learning LISP 

Jeff Shrager, Steve Bagley, Steware 
Schiffman and Steve Cherry 
Prentice-Hall, Englewood Cliffs, New 
Jersey, 1984. 

$14.95, 199 pages 

Comes with a LISP disk for the Apple. 


On Conceptual Modeling 
Perspectives from Artificial Intelli- 
gence, Databases, and Programming 
Languages 

Topics in Information Systems series 
Michael L. Brodie, John Mylopoulos, 
and Joachim W. Schmidt, eds. 


Springer-Verlag, New York, 1984. 
$29.25, 460 pages 

How to encode knowledge. Papers pre- 
senting three approaches to a funda- 
mental problem in the design of the 
commercial artificial intelligence 
packages called expert systems. 


Pascal For Programmers 

Olivier Lecarme and Jean-Louis 
Nebut 

McGraw-Hill, New York, 1984. 
$22.95, 267 pages 

Presents ISO Standard Pascal. As- 
sumes knowledge of at least one high- 
level language. The authors believe 
that Pascal enjoys the popularity it 
does partly because, when it was re- 
leased, no agency, organization or ven- 
dor made any attempt to support it. 


Programming In C 

Stephen G. Kochan 

Hayden, Hasbrouck Heights NJ, 
1983. 

$18.95, 365 pages 

Attempts to speak both to complete 
novices and to experienced program- 
mers. 


Programming With Structured 
Flowcharts 

Krishna K. Agarwal 

Petrocelli, New York, 1984. 

$12.00, 166 pages 

Why you should use those enclosed- 
space Nassi-Schneiderman flowcharts. 


The Elements of Friendly 
Software Design 

Paul Heckel 

Warner, New York, 1984. 

$8.95, 192 pages 

Serialized in InfoWorld in 1982. How 
to program like D. W. Griffith. Heckel 
is nothing if not eclectic. 


The IBM PC-DOS Handbook 
Richard Allen King 

Sybex, Berkeley, 1983. 

$16.95, 288 pages 

Includes appendices on the differences 
between PCDOS and MSDOS and 
among early version of PCDOS. 
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80 CHARACTER VIDEO BOARD 
e WORDSTAR/dBASE II OPTION 


CROSS-DEVELOPMENT | 
SOFTWARE TOOLS 






C COMPILERS (with ROM support) 


IBM/PC, target | 6809 
PDP-11, 
6809 


MACRO ASSEMBLERS 


IBM/PC, target | 6801, 6805 
PDP-11, 68HC11, 6809, 
6809 16000, 68000 


IBM/PC: TM of Int’l Business Machines. 
PDP-11: TM of Digital Equipment Corp. 





host 













e 25 LINE NON-SCROLL OPTION 
e Z80 CPU and 8275 CRTC _— S-100 

¢ CHARACTER GRAPHICS 

e ADAPTABLE SOFTWARE 

e ORDER ASSEMBLED & TESTED OR 
PRE-SOLDERED (ADD YOUR IC’s) 


VDB —A2 bare board from $49.50 


Simpliway PRODUCTS CO. 
(312-359-7337) 


host 


























Illinois Res. Add 6% Sales Tax 
WORDSTAR is a trademark of MicroPro INTERN’L CORP. 


(414) 276-2937 dBASE is a trademark of ASHTON-TATE CORP. 
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- TEK-MAR 
HIGH-LEVEL FORTRAN 


GRAPHICS LIBRARY 
FOR THE IBM PC 
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WHAT TOC 


ic Deluxe CP/M -- ISIS Package 
Includes: ICX file transfer pro- 


‘ gram for 8” ISIS disks; ISE emulator 
Features: allows ISIS software to run under CP/M. 
$89 each or $175 both 


¢ Windowing ® Viewporting ® Clipping 
e Axis Rotation ¢ Screen Dump & Restore 
e Dump Screen Graphics to Epson 


INCLUDES EXAMPLE 
APPLICATION SOURCE CODE 


REQUIRES: 


e¢ 320K Memory ® Two DS Disk Drives 
¢ TecMar Graphics Master Board 
¢ MS Fortran 3.20 or higher 
® Optional Plotter (Western Graphic 4636) 


$195 


ADVANCED SYSTEMS CONSULTANTS 
18653 Ventura Boulevard, Suite 351 
Tarzana, California 91356 


(818) 990-4942 


EZ-ZAP General purpose EPROM 


programming software utility. Uses simple 

parallel port interface to EPROM or adapts 

to other hardware. Includes schematic. 
A disk full of useful 


C-PACK CP/M utilites written 


in C. PEP, DEL, BACKUP, DPATCH, 
ECHO, CHX, PAUSE, and more! $19 


Programs include complete source code 


CP/M and MP/M are registered trademarks of 
Digital Research, Inc. ISIS-Il| and MULTIBUS are 
registered trademarks of Intel Corp 


Western Wares 


303°327-4898 
BoxC e Norwood, CO eee 
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4=20 ? 
4 the VIC! 
VIC FORTH’ for the VIC 20 





A general purpose programming 
language for string and list 
processing and all forms of 

non-numerical computation. 
SNOBOL4+ 
SNOBOL4 language with its superb pattern-matching 
facilities © Strings over 32,000 bytes in length ® Integer 
and floating point using 8087 or supplied emulator so 
e ASCII, binary, sequential, and random- al 
access |'O ® Assembly Language inter- a 


—the entire 


VIC FORTH* cartridge $14.25 


memory expansion optional 


Starting FORTH by L. Brodie $18.50 


softcover book/recommended 


face ® Compile new code during we 
program execution ® Create 
SAVE files © Program 


we 
wr .° 
G 
.° 


anddataspaceup ¥¢- oe With 


$30.75 


ad BOTH TOGETHER (mention this ad) 
PA residents add 6% 


yc 
oY 
we 


: to 300K Zoe Po * ELIZA & over 
8 RAM ee or 100 sample pro 
ms . gO cade eo Please request our free VIC brochure 
| at O = 
| gv© eo a For all 8086 88 PC MS-DOS or *y . EMGE ASSOCIATES 
\\ wu oe cP M-86 systems, 128K minimum 
: a 5’. DSDD. specify DOS CPM format P.O. Box 17330 
ge "send check, VISA. M C to: $95 “SA Pittsburgh, PA 15235-0330 
' Catspaw, Inc. plus *3s h VIC FORTHSHES VIC ‘Commodore 


P.O. Box 1123 © Salida, CO 81201 * 303 539-3884 
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° TYPE AHEAD KEYBOARD BUFFER| 


P.O. BOX 601, Hoffman Estates, IL 60195] _ 
add $3.00 S&H, 3% for Visa or Mastercard} 






$79... 

















68000 Cross Assembler 
Motorola VERSAdos + Compatible 


Assembler, Linker, Object and Macro Librarian. 
Absolute and Relocatable Code, Macros, In- 
cludes, and Conditional Assembly. Structured 
Programming. No limit on source file size. 


Unix (C) Compatible Source 
$700 


PC/DOSt CP/M-86* 
$250 $250 


Manual: $20 
(refundable) 





















CP/M-80* 
$200 









eo farbware 





1329 Gregory 
Wilmette, IL 60091 


(312) 251-5310 
after 5 p.m. 








*Digital Research trademark, tIBM trademark, + Motorola trademark 
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FORTH 


For 65SC802 
The 16 bit 6502 


Apple, Atari, Aim-65 
Commodore, OSI 


Faster 16 bit code 


Starlight FORTH Systems 
15247 N. 35th St. 
Phoenix, 85032 





Also 
FORTH tools 
For all FORTH systems 









OF INTEREST 


by R.P. Sutherland 
Software Tools 


Borland (Turbo Pascal) International 
is now offering Turbo Toolbox to com- 
plement its Pascal compiler for Z80 
and 8088/8086 microcomputers. Tur- 
bo Toolbox is a set of programming 
tools for data base, terminal installa- 
tion, and sort applications. Two of the 
five tools, Turbo-ISAM (Index Sequen- 
tial Access Method) and Quicksort, 
are available with commented source 
code. Turbo Toolbox is available for 
$49.95 from Borland International, 
4113 Scotts Valley Drive, Scotts Val- 
ley, CA 95066. Reader Service No. 101. 


Csharp Realtime Toolkit from the 
Systems Guild is a set of real-time, 
multitasking C programmer tools dis- 
tributed in source code to allow user 
modification. Cgraph, for example, 
lets programmers write portable 
graphics programs and configure 
graphic system parameters by using C 
procedure calls. Csched (real-time 
scheduling of user procedures) creates 
a multitasking environment where 
each scheduled procedure can turn to 
completion unless interrupted by a 
procedure with a higher authority. 
Csharp tools are processor indepen- 
dent and run on 8- and 16-bit proces- 
sors as well as on the entire PDP-11 
family. Csharp tools will run under 
many operating systems, including 
Unix and RT11, and can also be 
imbedded in stand-alone software. 
The Csharp Realtime Toolkit is avail- 
able under a single source license for 
$600 from Systems Guild, Inc., P.O. 
Box 1085, Cambridge, MA 02142. 
Reader Service No. 103. 


C_to_dBASE, from Computer In- 
novations, provides the ability to write 
C applications for dBASE files. The 
$150 price tag (there are no additional 
royalty charges) includes the complete 
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source code plus 70 functions that 
enable C programmers to perform op- 
erations on dBASE and index files. 
C_to_dBASE is available directly 
from Computer Innovations, Inc., 980 
Shrewsbury Avenue, Suite R, Tinton 
Falls, NJ 07724. Reader Service No. 105 


iLISP, from Computing Insights, is 
a new implementation of LISP for Z80 
microcomputers. iLISP runs under 
CP/M 2.2 and is based on the LISP 
dialect developed by Gerry Sussman 
called SCHEME. One of the advanced 
LISP features includes a complete, 
extendable implementation of ELIZA, 
the famous psychotherapist parody. 
iLISP is available on both 8- and 5'4- 
inch disk formats (including Kaypro, 
Morrow, Zenith, and Osborne). The 
list price of $49.95 includes a 60-page 
introduction to iLISP programming. 
For more information write: Comput- 
ing Insights, P.O. Box 4033, Madison, 
WI 53711. Reader Service No. 107. 


Graphics 


The STB Graphix Plus II is a video 
adaptor board for the IBM PC that 
supports both color and monochrome 
displays. I dropped one into my Eagle 
PC and now my Eagle flies “Flight 
Simulator.” Three interesting extras 
are: (1) a 64K printer buffer; (2) “PC 
Accelerator,” which supports print 
spooling and which offers a quick-start 
option that fools the PC into thinking 
only 64K of RAM is resident; and (3) 
an electronic RAM disk utility pro- 
gram. The package includes a 16-color 
driver for Lotus 1-2-3. The price is 
$495. For additional information con- 
tact STB Systems, Inc., 601 North 
Glenville Ave., Suite 125, Richardson, 
TX 75081. Reader Service No. 109. 





Voices 


ProTalker by Speech Ltd. provides 
S-100 systems and IBM PCs with 
voice output capability. Advanced us- 
ers can interface ProTalker to most 
programming languages and applica- 
tions because source code is provided. 
ProTalker is a digitizer /synthesizer 
that is switch selectable to rates of 4, 
6, or 8 kHz. Adaptive delta pulse code 
modulation is used to reduce the size 
of digital recordings. Recordings are 
stored on disk until needed and can be 
accessed randomly under program 
control for play back. A telephone 
demo of ProTalker is running at (415) 
858-2795. The price is under $350, 
available from Speech Ltd., 3790 El 
Camino Real, Suite 213, Palo Alto, 
CA 94306. Reader Service No. 111. 


SynPhonix 100 is a speech synthe- 
sizer for the Apple II family. The 
board plugs directly into Apple II 
slots 1 — 7. The package includes a 
speech operating system on diskette. 
Users can generate speech and sound 
effects and incorporate them into soft- 
ware with standard BASIC state- 
ments. The SynPhonix 100 retails for 
$135 and is available from Arctic 
Technologies, 2234 Star Court, Au- 
burn Heights, MI 48057. Reader Service 
No. 113. 


The VocaLink Speech Recognition 
Board is a single-slot voice recognition 
board and software package for the 
IBM PC that allows users to operate 
off-the-shelf programs with up to 240 
spoken commands. The SRB incorpo- 
rates a high-speed, 16-bit Intel 80186 
microprocessor to manage the com- 
plex operations required to accurately 
recognize discrete words/phrases spo- 
ken by a specific individual. Other 
hardware features include: the ASA- 
16 (a custom audio spectrum analysis 
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chip), 128K RAM, 32K EPROM, and 
the cabling required to connect a mi- 
crophone, headset earphone, and voice 
synthesizer. The VocaLink Speech 
Recognition Board costs $1700 and is 
aimed at OEMs and sophisticated end- 
users. Inquiries should be addressed to 
Jim Bright, Interstate Voice Products, 
1849 W. Sequoia Ave., Orange, CA 
92668. Reader Service No. 115. 


Macintosh 


MacModula 

Modula Corporation believes that, 
compared to Modula-2, using any 
other programming method is analo- 
gous to doing arithmetic in Roman 
numerals. If Modula-2 is to replace 
Pascal, then a Pascal-to-Modula-2 
converter seems a sensible product. 
Modula Corporation has announced a 
range of software tools for use by 
developers of Modula-2 applications. 
A Modula-2 compiler, interpreter, 


and a Pascal-to-Modula-2 source- 


code converter are available for Mac- 
intosh as well as for Apple’s other 
machines (and IBM PCs and compati- 
bles). The Macintosh versions feature 
enhanced, bit-mapped graphics sup- 
port, which the company claims is 
superior to any Apple-supplied Mac- 
intosh products. Modula Corporation 
is at 950 N. University Ave., Provo, 
UT 84604. Reader Service No. 117. 


The Ultimate Mr. Potato-Head 
MicronEye for Macintosh is an imag- 
ing peripheral that allows the Macin- 
tosh to take pictures! The user can 
accept an image into MacPaint and 
then subject that image to all of the 
features of MacPaint. The possibili- 
ties for Mr. Potato-Head-like manipu- 
lation of one’s friends or enemies are 
staggering. MicronEye is available for 
$395 from Micron Technology, Inc., 
Vision Systems Group, 2805 E. Co- 
lumbia Road, Boise, ID 83706. Reader 
Service No. 119. 


Mac Learns to Read 

Oberon International has a Z80-based 
type-reader that is compatible with 
Macintosh. Omni-Reader can read four 
different typefaces and has the ability 
to learn others. The device allows one 
to read text into a computer at the rate 
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of 80 characters per second. Omni- 
Reader is manufactured in the United 
Kingdom and retails for $500. Contact 
Oberon International, McArthur Pla- 
za, Suite 630, LB48, 5525 McArthur 
Blvd, Irving, TX 75062. Reader Service 
No. 121. 


Attention User Groups 


If you would like your user group to 
be included in a National Directory of 
User Groups, send a stamped, self 
addressed envelope to: Ken Ryder, 
P.O. Box 4102, Rome, NY 13440. 
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BLAISE paca ecieas 
Chips Off the Old Block 


Kids are fast unlearning passive (tele- 
vision addict) approaches to cathode 
ray tubes and discovering that moni- 
tors connected to microprocessors are 
devices to make dance. 

Computers ’n Kids Adventure Fair is 
looking for games and educational 
software written by people up to 17 
years old. Winners will have the 
chance to demonstrate their programs 
at the first annual Computers ’n Kids 
Adventure Fair, which will be held at 
the San Francisco Concourse (8th and 
Brannan) from October 18 — 21. For 
more information call (415) 848-6860. 

Isaac Asimov has published a book 
for children called How Did We Find 
Out About Computers? Asimov places 
the invention of the computer in the 
context of history by tracing the de- 
velopment of man’s ability to calcu- 
late from counting on fingers, to the 


abacus, to the slide rule, to the inven- 
tions of Pascal and Babbage. The 
illustrations by David Wool include 
Pascal (illustration center page), Jac- 
quard’s first loom, the Hollerith tabu- 
lator, Vannevar Bush’s differential 
analyzer, and Aiken’s Mark One. Asi- 
mov concludes this well-written and 
informative history with an affirma- 
tion of human intelligence (or is it a 
challenge to DDJ readers? ): “... when 
I write a story, I write as fast as I can 
and put one word after another in just 
the right order until I am finished. 
But how can I tell a computer to do 
it? Even if I put a whole dictionary of 
words into its memory, how can I tell 
it what word to put first, and what 
second, and what third? How can I 
explain to it how to choose the order 
of words so that it can write a brand- 
new story, just the way I do it, when I 
don’t know how I do it?” How Did We 
Find Out About Computers? is priced 
at $8.85 (ISBN 8027-6533-5) from 
the publisher, Walker and Company, 
720 Fifth Avenue, New York, NY 
10019. Reader Service No. 123. 





DD] 


Reader Ballot 
Vote for your favorite feature/article. . 
Circle Reader Service No. 198. 


Graphs without 
Graphics? 


No need for screen graphics. Publishable 


graphs on your dot matrix printer. 


Easy to Use. No programming. 
CP/M 80 or 86, MS-DOS, or PC-DOS. 
Excellent Manual. Most disk formats. 


Data Plotter ™ 


THEORETICAL 


xxx EMPIRICAL 
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20 
MILLISECONDS 
i ark Line Graphs & Shipping. ..... add $3 


So ftware a Scatterplots. .$69 
7 Cedars Road 
Caldwell, NJ 07006 


Outside US and 
Canada ....... add $6 


Specify which Printer 
Visa. M/C 


(201) 226-7552 
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NEW FEATURES 


(Free update for our early customers!) 
e Edit & Load multiple memory 
resident files. 
e Complete 8087 assembler 
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FULL MEGABYTE FORTHS! 


(TEN TIMES FASTER WHEN USING AUTO-OPT!) 
HS/FORTH, complete system only: $250. 






wet Visa Mastercard oe 
Add $10. shipping and handling 


HARVARD 
SOFTWORKS 


PO BOX 339 
HARVARD, MA 01451 
(617) 456-3021 






Thunder Software 


@ The THUNDER C Compiler - Operates under the APPLE Pascal 1.1 operating.system. Create:tast native 6502 programs to run as 
stand alone programs or as subroutines to Pascal programs,.Axmajor subsevéfithe CT defined by K & R. Includes a 24 page users guide. 
newsletters. Macro preprocessor. runs on APPLEspfF¥+"77e. /fe Source code for libraries is included Only $49.95 

@ ASSYST: The Assembler System - A complete 6502:editor / assembler and lister for APPLE DOS 3.3. Menu driven. excellent error 
trapping. 24 p. users guide. demo programs. source code for abjpregtamsGreatforbeginners Only $23.50 

@ THUNDER XREF - A cross reference utility for APPLE Pascal 1.1. XREF generates erass¥eferenses for each procedure. Source code 
and documentation provided. Only $19.95 


Thunder Software POB 31501 Houston Tx 77231 713-728-5501 
Include $3.00 shipping. COD, VISA and MASTERCARD accepted 
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We thought about calling it MacSimplex.. . 
after all it makes your IBM®PC behave like a 
Macintosh™ and much more... 


and with over two years in the making, the Simplex 
Database Management System has features like 
32-megabyte virtual memory and the most powerful 
networked/relational database in the microcomputer 
industry. Simplex was designed around how you 
think and the Macintosh way, so that you can use 
your favorite mouse to handle those mundane tasks 
like menu selection and data manipulation. And, if 
you don’t have a mouse, you can use our keyboard 
mouse simulator, MouSim™. 
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Pop-up and pull-down menus, dialog and alert boxes 
are not just added features, they are the heart of the 
Simplex way. In addition, Simplex gives you both a 
software and a hardware floating point capability, 
each with 19-digit accuracy. It permits login, 
password, privilege, and can be used on a local area 
network. Simplex has full communications and a 
remote or local printer spooler. Above all, Simplex is 
modular and grows with you! Simplex also has a 
full-featured, English-like language which is simple 
to use. 





You can’t buy Simplex™, but it is now available as an integral part of 
it's my Business™ and will be used by it’s my Word™., it’s my Graphics™,.. . 


Businessmen! it’s my Business will revolutionize the 
way that you handle your business. It saves time, 
money, and standardizes your system for all who use 
it. it’s my Business comes with applications like 
accounting, interoffice or intraoffice mail, editing, 
invoicing, inventory managment, mail list, calendar, 
scheduler, forms and more. You can modify each of 
these to create applications specifically designed for 
you... maybe we should have called it ‘‘it’s your 
Business’. 


Professionals! it’s my Business has over 200 pages of 
examples and demonstrations to show you how to 
solve your everyday professional problems. And if 
these examples aren’t enough, we give you a 
complimentary one-year subscription to Questalk™, 
our hands-on Simplex applications magazine. 
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System integrators and consultants, beware! If you 
are not using it’s my Business with Simplex to solve 
your problems, don’t be surprised when more novice 
programmers solve that complex math, industrial 
engineering, or business problem faster. We think 
that you can cut your concept-to-development time 
by an order of magnitude! 


it's my Business (includes it’s my Editor) - $695.00 
it’s my Business Demo Disk - $20.00 
it’s my Editor - $100.00. 


Quest Research software is available through your local computer store or through mail 
order from Quest Software Corporation at (205) 539-8086. 303 Williams Avenue, 
Huntsville, AL 35801. 


Value added resellers and dealers please contact Quest Research, Incorporated at 
(800) 558-8088. 303 Williams Avenue, Huntsville, AL, 35801. 
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Quest Research Inc. 


IBM is a registered trademark of International Business Machines. Macintosh is a trademark of Apple Corporation. it’s my Business, it’s my Word, it’s my Graphics, 
it’s my Editor, it’s my Home, it’s my Voice, it’s my Ear, it’s my Statistics, Simplex, MouSim, Questalk, and the Quest logo are trademarks of Quest Research, Incorporated. 
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This is THE PASCAL COMPILER 
You've Been Hearing About 


Jos 


€ “It’s almost certainly better 
- than IBM’s Pascal for the PC. . 


Be om aces ® 
Jerry Pournelle 


Byte, May 1984 


$49.95 


“If you don’t have CP/M [for 
your Apple], Turbo Pascal is 
reason enough to buy it.”’ 


Cary Hara 
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. . an excellent product at an extraordinary price.” 
David D. Clark, Dr. Dobb’s Journal, June 1984 


_” And Now It’s Even Better 
Than You've Heard! 


¢ Windowing (IBM PC, XT, jr. or true compatibles) 

¢ Color, Sound and Graphics Support (IBM PC, XT, jr. or true compatibles) 
¢ Optional 8087 Support (available at an additional charge) 

e Automatic Overlays 

e A Full-Screen Editor that’s even better than ever 

e Full Heap Management—via dispose procedure 





e Full Support of Operating System Facilities 
¢ No license fees. You can sell the programs you write with Turbo Pascal without extra cost. 
Yes. We still include Microcalc . . . the sample seme ae written with Turbo Pascal. You can study the 


source code to learn how a grcahect | is written . . . it’s right on the disk.* And, if you’re running Turbo 
Pascal with the 8087 option, you’ll never have seen a spreadsheet calculate this fast before! 
*Except Commodore 64 CP/M. 
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